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Basic. Con Video Basic il corso su impari a conoscere Video Basic, il corso su cassetta per 
cassetta che ti permette di e programmare il tuo computer, sia parlare subito col tuo computer. 
rogrammare subito il tuo computer. esso un VIC 20, un Commodore 64 o 
facile: tu chiedi, lui risponde, un Sinclair. sia RS AE УТУР 
tu impari. Passo dopo passo. Video Basic è in edicola. Video Basic 
Sul tuo schermo appaiono le Provalo subito. per imparare non solo il Basic. 
domande, le risposte, gli esercizi e Ogni lezione è uno spettacolo. =m 
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Per collaborare а SUPERSINC 


La maggior parte dei seguenti suggerimenti ha lo scopo di migliorare l’accuratezza e la velocità 
di pubblicazione di un articolo; rispettando questi consigli si accresceranno le probabilità che 
un vostro lavoro venga pubblicato. La rivista è interessata ad articoli e programmi riguardanti 
la linea Sinclair. Siamo più interessati al contenuto di un articolo piuttosto che al suo stile, 
e soprattutto gli articoli devono essere chiari ed esaurienti. La seguente guida permetterà 
che le vostre buone idee e i vostri programmi vengano più facilmente accettati per la pubblica- 


zione: 


l'angolo superiore sinistro della prima pagina 

dovrà contenere: nome, cognome, indirizzo, 
numero telefonico, codice fiscale, data di spedi- 
zione, luogo e data di nascita. 

l'angolo superiore destro della prima pagina 

dovrà contenere la marca e il tipo di compu- 
ter al quale il lavoro si riferisce, unitamente alla 
configuraszione richiesta (memoria occorrente, 
eventuali periferiche e cosi via). 
3 il titolo sottolineato dell'articolo dovrà iniizia- 

re a due terzi in altezza della prima pagina. 
4: pagine seguenti potranno essere battute 

normalmente, con la condizione che l’angolo 
superiore destro contenga un’abbreviazione del 
titolo e del cognome, unitamente al numero di 
pagina progressivo. Per esempio, Horace Goes... 
/Brambilla/2. 
ge le linee del testo dovranno essere battu- 

te con spazio 2 o spazio 3, e un margine di 
circa un centimetro dovrà trovarsi ad entrambi i 
lati dello scritto. 

dovrà essere usata una carta formato A4 e 

lo scritto dovrà occupare un solo lato del 
foglio (caratteri maiuscoli e minuscoli). 
РА fogli dovranno essere uniti con una clip. 


avendo intenzione di spedire più di un artico- 

lo, questi dovranno essere inviati separata- 
mente insieme alla rispettiva copia su supporto 
magnetico. 
goon brevi (meno di 20 linee) potranno 

essere inseriti nel testo, mentre programmi 
più lunghi dovranno essere listati separatamente. 
E ESSENZIALE per noi disporre di una copia 
del programma registrata più volte su supporto 
magnetico, su entrambi i lati dello stesso. E prefe- 
ribile usare nastri di buona qualità e di lunghezza 
non eccessiva; la cassetta o il la cartuccia per 
Microdrive dovranno essere etichettati con il no- 
те dell'autore, il titolo dell'articolo, il titolo del- 
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l'articolo, il computer interessato e soprattutto 
le eventuali espansioni richieste. Come suggeri- 
menti di programmazione si consiglia di usare 
per esigenze di stampa listati, le istruzioni INK, 
PAPER, INVERSE piuttosto che scrivere dietta- 
mente in INVERSE VIDEO. Un rapido controllo 
dei programmi per operare queste sostituzioni 
sarà da noi estremamente apprezzato. 
1 per maggior chiarezza, all'interno dell'ar- 
ticolo ë conveniente usare caratteri maiu- 
scoli riferendosi a istruzioni BASIC (esempio RE- 
TURN, LIST, RND, PRINT etc.). Se si desidera 
evidenziare una parola, ë preferibile sottolinearla 
piuttosto che scriverla in carattere maiuscolo. 
1 gli articoli ed i programmi potranno avere 
qualsiasi lunghezza — da una routine di 
una sola linea fino a programmi molto complessi. 
1 2 includere fotografie, questi do- 
vranno avere formato 24x36, o 6X6, in 
bianco e nero o diapositive. 
1 235 prenderemo in considerazione artico- 
li che siano stati sottoposti ad altre case 
editrici. 
1 4: compenso per la collaborazione presta- 
ta sarà commisurato alla complessità e 
all'interesse del programma (da un minimo di L. 
50.000 a un massimo di L. 300.000). ЇЇ paga- 
mento ë effettuato in caso di pubblicazione del la- 
voro. 
1 5: materiale ricevuto e non pubblicato non 
verrà restituito. 


Spedite i vostri lavori a: 
SUPERSINC 
Via Rosellini, 12 
20124 Milano 
e saremo lietissimi di pubblicare i contri- 
buti migliori. 
La Redazione 


Gino dagli Stati Uniti voci allarmistiche circa il presente e il futuro degli home 
computer e dei piccoli personal computer. 
Ci sono fabbriche che hanno dovuto cessare temporaneamente la produzione delle macchi- 


ne per smaltire le scorte di magazzino. 
Forti le critiche mosse a proposito del modo di pubblicizzare la presunta indispensabilità 
del computer nella casa oltre alle motivazioni, a volte senza troppo senso, con cui tutte 
le case produttrici hanno cercato di imporre a chiunque l’attrezzo tecnologico. 
Da sempre l'Italia si è mossa, ovviamente con tempi diversi, sul modello americano; si 
sono infatti riscontrate le stesse tendenze del mercato statunitense circa la diffusione, 
l'utilizzo e quant'altro attiene al mondo del personal computing. 
Ora dunque, in linea teorica, anche da noi c’è da attendersi una recessione che potrebbe 
contrarre la domanda e l’offerta di questi prodotti. 
Ad una attenta analisi però si possono riscontrare sostanziali differenze di diffusione, 
facendo comunque le debite proporzioni, tra il mercato italiano e quello americano. 
Sono svariati gli esempi che possono essere citati a conferma della ancora scarsa diffusione 
del personal nel nostro paese. 
Un esempio per tutti potrebbe essere rappresentato dalla situazione nelle scuole dove, 
nonostante le pressioni esercitate da più parti il calcolatore non è ancora stato adottato 
massicciamente quale indispensabile ausilio didattico. 
Pare che da noi, oltre agli impieghi in ambiti ben precisi, il calcolatore non abbia ancora 
trovato una precisa collocazione, del resto una delle principali caratteristiche risiede 
proprio nella possibilità di trasformarsi per assumere ruoli spesso molto diversi tra loro. 
Ogni utilizzatore deve cercare il migliore modo di sfruttare il proprio “attrezzo” ponendosi 
sempre precisi obiettivi da raggiungere. 
Non ci stancheremo mai di ripetere che non bisogna subire passivamente il calcolatore 
dandogli da elaborare ogni cosa che capita di trovare pubblicata, ma usare quel materiale 
come spunto creativo per elaborare nuove realizzazioni. 
Siamo convinti che siano ancora moltissimi gli utenti di “prima mano” o persone che 
aspirano al possesso del personal computer, quindi ancora tanto lavoro da fare anche 
da parte nostra. 
Dunque, per la realtà del nostro paese, la recessione americana non ci deve preoccupare 
più di tanto; da noi c'é ancora tanto da fare e, forse, gli home e i personal computer non 
hanno ancora conosciuto la loro alba migliore. 
Per finire tutta la redazione augura ai lettori buone vacanze, raccomandando a tutti di 
non lasciare a casa, o in disparte troppo a lungo, il fedele “amico”. 

Pietro Dell'Orco 
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Piccola guida per 
l'input 
dei programmi 


рр pubblicati da SUPERSINC ѕопо stati ас- 
curatamente provati e verificati: in questo modo spe- 
riamo di avere ridotto al minimo la possibilità di errori. 
Nel caso comunque un programma dovesse presentare 
malfunzionamenti, pubblicheremo le modifiche da ap- 
prontare in uno dei numeri immediatamente successivi 
della rivista. 

Per utilizzare i programmi pubblicati è sufficiente digi- 
tare i relativi listati sulla tastiera del calcolatore. 

Nel caso dello ZX SPECTRUM, abbiamo previsto una 
semplice decodifica dei tasti da digitare nel modo grafi- 
co, per semplificare la comprensione dei listati. 
Come è noto, lo SPECTRUM è provvisto di 2 serie di 
tasti grafici: una prima serie di 16 caratteri grafici pre- 
definiti (i tasti numerici da 1 a 8 e gli stessi “shiftati”) 
e una serie di caratteri definibili dall’utente nell’ambito 
di un programma (le lettere da A a U). 

In entrambi i casi per ottenere i caratteri desiderati 
occorre entrare in modo grafico (cursore contrassegna- 
to dalla lettera G lampeggiante), premendo contempo- 
raneamente i tasti CAPS-SHIFT e 9. 

Nei nostri listati i caratteri grafici predefiniti sono indi- 
cati da una Q seguita dal numero corrispondente al 
testo che occorre digitare, il tutto racchiuso tra due 
parentesi graffe. 


Vedrete 


Se non siete 
già in modo Se dovete 
uscire dal 
modo G, 


G, entrateci 
schiacciando 


contempora- schiacciate 9 


neamente 
CAPS SHIFT 


E" "48 РР йо? на I" 
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Ix ман 


Ad esempio |64 | significa che occorre digitare il tasto 
4, con il cursore in modo grafico. 

Analogamente la codifica SG, seguita da un numero 
da 1 a 8, significa che occorre digitare il relativo tasto 
numerico, premendo contemporaneamente il tasto 
CAPS-SHIFT. 

Ad esempio quando, si trova la codifica 02| оссотте 
premere il tasto 2 contemporaneamente а! tasto САР5- 
SHIFT, ovviamente con il cursore in modo grafico. In 
entrambi i casi precedenti, quando un simbolo grafico 
deve essere digitato più volte, i caratteri G o SG della 
codifica sono preceduti da un numero che specifica 
quante volte va premuto il tasto grafico indicato. 

Così ad esempio {8G5} significa che il tasto grafico 5 
va digitato 8 volte e analogamente {4SG1} indica che 
il tasto grafico 1 e CAPS-SHIFT devono essere battuti 
4 volte. 

I caratteri grafici definibili (le lettere da A a U in modo 
grafico) hanno una codifica semplificata: la lettera cor- 
rispondente, sottolineata. 

Quando in un listato viene presentata, ad esempio, una 
A sottolineata occorre entrare in modo grafico (al solito 
premendo contemporaneamente i tasti CAPS-SHIFT 
e 9) e quindi digitare semplicemente il tasto che con- 


trassegna la lettera A. 


Simbolo grafico 
definito nel 
programma in uso. 


Quando leggete Premete 


A 
B 
с 
D 
E 
Е 
G 
H 


Se non siete 
già in modo 
G, entrateci 


schiacciando K 
contempora- 
neamente 
CAPS SHIFT L 
е9 


Se dovete 
uscire dal 


modo G, 
schiacciate 9 


ICH Imi» [0179 [0] 2 


ІПТІШІ 


Joystick о Kempston? 
Possedendo un'interfaccia рег joustick 
programmabile, è possibile simulare l’in- 
terfaccia Kempston? Ovvero, avendo un 
programma che funziona solo con joy- 
stick Kempston, posso sostituire quest’ul- 
timo con un joystick programmabile? 
Fulvio Gabotti - Cremona 


Certo, purché il software di program- 
mazione del joystick non risieda nella 
RAM dello Spectrum (nel caso in cui si 
tratti di programmi commerciali). 


Assembler 1541 
Carissima redazione di Supersinc, 
sono un felicissimo possessore di uno ZX 
Spectrum 48K e vorrei sapere se avete 
intenzione di pubblicare degli articoli sul- 
l'Assembler dello Spectrum. Inoltre, mi 
piacerebbe sapere se lo Spectrum può 
essere collegato con un floppy disk Com- 
modore 1541. 

Andrea Mele 
Fizzonasco di Pieve Emanuele 
(MI) 


Carissimo Andrea, 

la serie di articoli sull'Assembler Z80 
sta procedendo già da diversi numeri. 
Quanto al collegamento con i drive 
1541 Commodore si presentano diffi- 
coltà tali da sconsigliare un tentativo in 
questo senso. Tra l'altro, sono ormai 
reperibili un po' in tutta Italia sia floppy 
disk drive pensati per lo Spectrum (e 
quindi interfacciabili senza problemi) sia 
i cari vecchi microdrive, che nonostante 
tutte le critiche — eccessive e ingiuste 
— a loro rivolte sanno svolgere, se trat- 
tati con la dovuta attenzione, il loro 
compito рій che egregiamente. 


Non si puo... 

Io vorrei solo una cosa. Potreste pubbli- 

care una cassetta di Atic Atac per ZX 

Spectrum+, o farmela pervenire? 
Mauro Matiddi - Piombino (LI) 


I casi sono due: o sei convinto che le 
cassette per lo Spectrum siano incom- 
patibili con lo Spectrum+ — e per rassi- 


curarti basta dire che questo à comple- 
tamente falso — o (рій probabile) ci stai 
chiedendo di fare copie "pirata" di Atic 
Atac per poi venderle insieme a SU- 
PERSINC: non abbiamo tuttavia il dirit- 
to di duplicare il grande gioco della Ulti- 
mate, né sentiamo in noi la vocazione 
all'appropriazione indebita del lavoro di 
altri — peraltro già diffusa nel settore 
informatico ben piü di quanto ce ne sia 
effettivo bisogno. 


Tutte le strade portano alla ROM 

Potreste pubblicare gli indirizzi delle va- 
rie routine della ROM... 

Matteo Tosato 

Noventa Vicentina (VI) 


Come si suol dire, le routine della ROM 
sono già in pista, e non mancheranno 
di apparire su SUPERSINC! 


A domanda, rispondiamo 
Spettabilissima (addirittura! N.d.R.) reda- 
zione, 
sono anch'io un felice possesore di Spec- 
trum 48K. Desidererei innanzitutto farvi 
i complimenti per la vostra super rivista 
e poi porvi tre domande: 
1) mi serve una linea di programma che 
disattivi il BREAK e lo STOP; me la po- 
tete fornire? 
2) cosa intendete quando dite ché gli 
80K dell'espansione non sono contem- 
poraneamente disponibili? Cosa com- 
porta questo in un programma? 
3) come si fa a sapere quanta memoria 
rimane nel calcolatore dopo aver scritto 
un programma? 
Ringraziando anticipatamente, vorrei 
suggerirvi di provare, oltre ai game, an- 
che alcune utility. 
Cordiali saluti. 
Matteo Rossi 
S. Donato Milanese (MI) 


Dunque: 
1) non esiste un modo realmente effica- 
ce di proteggere un programma dal 


BREAK rimanendo in ambiente BASIC, 
in quanto lo Spectrum è sprovvisto del- 
l'istruzione ON ERROR СОТО. L'unico 
risultato ottenibile con buona facilità ë 
quello di far “crashare” il programma. 
Ci sono diversi modi per arrivare a ció; 
ad esempio, si puó inserire una linea 
tipo IF (condizione indesiderata) THEN 
POKE 23659,0. 

Questa POKE rende impossibile qua- 
lunque operazione successiva, tanto 
che occorre spegnere e riaccendere il 
computer. Un'altra istruzione micidiale 
è POKE 23613,0, che ha il vantaggio 
di evitare il fastidio di dover... spegnere 
il computer, dato che in caso di BREAK 
avviene un reset totale. Lo statement 
piü bizzarro ë POKE 
23613,PEEK(23730)-5: se nel pro- 
gramma viene usato sempre INPUT LI- 
NE al posto di INPUT, esso agisce an- 
che contro qualsiasi genere di STOP, 
compreso CAPS SHIFT+6, con risultati 
a volte curiosi. Il ricorso al linguaggio 
macchina è invece inevitabile, se si vuo- 
le, in caso di BREAK, mantenere ugual- 
mente in funzione il programma: biso- 
gna realizzare una routine di simulazio- 
ne di ON ERROR СОТО, che provochi 
il salto dell’interprete BASIC a una li- 
nea del programma stesso, anziché alla 
ROM dello Spectrum. 

2) Cercheremo di essere chiari, anche 
a scapito della correttezza formale. Lo 
Z80, come il 6502 Apple/Commodore, 
come il 6809 Atari, come tutti i micro- 
processori cosiddetti a 8 bit, può memo- 
rizzare internamente solo numeri com- 
presi tra 0 e 65535. In altri termini, lo 
Z80 può controllare i byte di memoria 
esistenti all’interno di un computer, par- 
tendo dal byte numero 0 per arrivare 
al byte numero 65535. 80K di memoria 
equivalgono a 81920 byte: troppi per 
essere controllati tutti dal microproces- 
sore...contemporaneamente. În effetti 
lo Z80 può controllare i 16K supple- 
mentari solo “dimenticandosi” momen- 
taneamente di altri 16K, in modo che i 
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byte sotto il suo controllo siano sempre 
non più di 65535. Il problema sta tutto 
nel riuscire a ingannare il computer con 
una piccola bugia: bisogna cioè conge- 
gnare il programma in maniera tale che 
sia possibile far passare i byte da 65536 
a 81919 (ricordarsi che il conteggio par- 
te da 0, e che quindi 81920 byte vanno 
da 0 а 81919!), come se fossero quelli 
compresi tra (poniamo) 49152 e 
65535, e alternare questo blocco di by- 
te, all'insaputa della CPU, con quello 
“vero”, cosi che di volta in volta i due 
blocchi di byte siano alternativamente 
sotto controllo, uno, e "dimenticato" 
l'altro. Per lo Z80 si tratterà sempre di 
maneggiare costantemente il blocco di 
byte compreso tra 49152 e 65535, 
ignorando che si tratta in realtà di due 
blocchi, uno autentico e l'altro *travesti- 
to", che quando ne abbiamo bisogno si 
scambiano la parte. Tutto questo ë rea- 
lizzabile via BASIC, utilizzando l'istru- 
zione OUT. Torneremo comunque sul- 
l'argomento. 

3) Questo ë molto meno complicato da 
spiegare: 6 sufficiente digitare PRINT 
65536-USR 7962, ovviamente seguito 
da ENTER. Lo Spectrum visualizzerà il 
numero di byte ancora liberi. 

Per concludere, ha visto il nostro OPEN 
dedicato ai migliori Assembler per lo 
Spectrum, sullo scorso numero? Vedrà 
che si parlerà ancora di programmi di 
utilità anche se non necessariamente іп 
questa veste. Nel frattempo, stiamo co- 
gliendo l'occasione per indicare, in IF 
THEN, i migliori interpreti/compilatori 
Pascal, LIST e via dicendo... 


Stranezze 
Caro SUPERSINC, 
voglio prima di tutto congratularmi per 
l'ottima idea di pubblicare una rivista ri- 
guardante i prodotti Sinclair. 
Vorrei sapere se ë vero che alcuni pro- 
grammi per ZX inespanso, salvati su na- 
stro da uno Spectrum 48K, quando ven- 
gono caricati in uno Spectrum 16K pro- 
vocano un reset al termine del carica- 
mento. 
Vorrei inoltre che mi venisse spiegata la 
differenza esistente tra Issue 2 e ISSUE 
3 e perché scrivete sulla copertina della 
rivista i titoli di programmi (come “Galat- 
toidi") che poi non pubblicate. 
Riccardo Alezio Bortone 
Lecce 


Caro Riccardo, 

il problema da te citato esiste effettiva- 
mente, e si verifica su alcuni Spectrum 
(fortunatamente pochi) che presentano 
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lievi modifiche hardware rispetto agli al- 
tri. Bisogna dire che solo alcuni pro- 
grammi provocano questo inconvenien- 
te, per il quale non esiste rimedio che 
non sia l'espansione a 48K dello Spec- 
trum in questione. 

La differenza tra Issue 2 e Issue 3 e 
stata spiegata piü volte: mentre le IN 
di lettura tastiera di uno Spectrum Issue 
2 hanno come valore di default 255, 
quelle di uno Spectrum Issue 3 sono a 
191; la differenza (64) à sempre la stes- 
sa anche per tutti gli altri valori. 
Quanto a “Galattoidi” si è trattato di un 
inconveniente dovuto al fatto che la co- 
pertina viene realizzata con grande anti- 
cipo rispetto alla rivista, cosi che non è 
possibile modificarla in caso di problemi 
"dell'ultima ora". Va da sé che faremo 
il possibile affinché la cosa non si ripeta. 


L'immortalità dell'anima (di Mi- 
ner Willy) 
Spettabile redazione, 
Visto che non avete pubblicato nessun 
errata corrige riguardo al metodo da voi 
pubblicato su SUPERSINC del lontanissi- 
mo settembre 1984 per ottenere 32 
omini in Manic Miner (sistema che non 
funziona), vi dó addirittura la POKE che 
fornisce al simpatico Willy nientemeno 
che l'immortalità. 
— Caricate il primo blocco con MER- 
GE” 
— la linea da 
3513610; 
— date RUN e caricate il resto del pro- 
gramma. 

Gabriele Barrera - Torino 


inserire è 25 РОКЕ 


Il sistema funziona: è solamente stato 
spiegato in modo probabilmente un po’ 
ambiguo. La POKE dell’immortalità è 
stata pubblicata da tempo su PAPER- 
SOFT, ma è passato abbastanza tempo 
perché valga la pena di ripeterla. 


Tastiere, stampanti e guerre si- 
mulate 

Egregi signori, 

complimentandomi innanzitutto per la ri- 
vista, vi scrivo per porvi alcuni quesiti: 
1) cosa ne pensate della stampante Ep- 
son FX-80? Ho occasione di essere a 
Londra ogni cinque settimane e, vistala 
sul posto, me ne sono innamorato. Esiste 
però un centro di assistenza tecnica an- 
che in Italia? E, tecnicamente, qual è il 
vostro parere? Preciso che me ne servirei 
per scrivere testi e dovrebbe lavorare pa- 
recchio. 

2) Quanto può valere la pena di sostituire 
l’attuale tastiera del mio Spectrum (inten- 


do quella coi tasti di gomma) con una 
Keyboard alternativa? E una sostituzione 
che si può operare autonomamente op- 
pure è necessario l’intervento di un tecni- 
co? 
3) Tra i vari game che ho sperimentato 
ho preferito in assoluto simulazioni stra- 
tegiche del tipo “Battle of Britain”, “War 
70” e “Stonkers”. Cosa esiste in com- 
mercio di simile (e possibilmente miglio- 
re)? 
4) Esiste in commercio per lo Spectrum 
un programma che esprima graficamen- 
te, mediante istogrammi e diagrammi, 
diverse situazioni professionali e dati va- 
riabili di volta in volta? 

Roberto Ferraris - Vercelli 


Egregio signor Ferraris, 

ecco il nostro parere: 

1) tutto il bene possibile; la FX-80 è una 
delle migliori stampanti della sua classe 
sul mercato, per giunta interfacciabile 
allo Spectrum con buona facilità (tanto 
per fare un esempio, il word processor 
“Tasword 2” è già predisposto per l’uso 
della Epson). Non ci risulta che esistano 
centri di assistenza tecnica specializzati, 
ma non dovrebbe essere difficile rintrac- 
ciare un laboratorio che possa eseguire 
le eventuali riparazioni, data anche la 
notorietà e la diffusione del prodotto. Il 
suo innamoramento è pienamente giu- 
stificato, e poggia su ottime basi! 

2) Se, come ci dice, vuole impiegare il 
calcolatore in particolar modo per il 
trattamento dei testi, la tastiera stan- 
dard dello Spectrum risulta palesemen- 
te inadatta, tanto che vale sicuramente 
la pena di sostituirla. A seconda del mo- 
dello, le varie tastiere esistenti sul mer- 
cato richiedono procedure di installazio- 
ni differenti, dal semplice incastro fino 
allo smontaggio completo dello Spec- 
trum. Di regola non è necessario inter- 
venire sulla scheda madre; nel peggiore 
dei casi chiunque abbia preso in mano 
una volta un saldatore non avrà difficol- 
tà, e di norma la lista degli utensili ne- 
cessari si ferma al cacciavite. 

3) Dopo accese discussioni redazionali 
è stato stilato un piccolo elenco, ispirato 
da considerazioni di ordine qualitativo, 
che riportiamo in ordine rigorosamente 
alfabetico: Battle 1917 (della CCS), Ga- 
laxy Conflict (Martech), Hunter Killer 
(Protek), Special Operations (Lothlo- 
rien). A questi ci permettiamo di aggiun- 
gere i nostri “pallini”, Lords of Midnight 
e Doomdark's Revenge, entrambi della 
Beyond, non esattamente definibili co- 
me simulazioni strategiche, ma ugual- 
mente caratterizzati da una discreta 
complessità. 

4) Se esiste, non ë a livello professiona- 
le. Forse la cosa migliore da fare a que- 
sto riguardo ë prendere un normale 
programma BASIC e riadattarlo in base 
alle proprie esigenze. Oltretutto, realiz- 
zare un programma di istogrammi non 
ë difficilissimo, e tra i libri recensiti nelle 
pagine della rubrica PRINT sono già ap- 
parsi numerosi riferimenti all'argomen- 
to. 


MISSIONE. 
AFRICA 


Una “Мауе della Pace” in partenza dall'Italia 
porterà in Africa soccorsi immediati e aiuti 
per un domani migliore con il vostro contributo. 


Spazio gratuito offerto da J.soft 


Nave della Pace 


La “Nave della Pace": blemi dello sviluppo han- mezzi e di beni indispen- 
uno strumento nuovo no offerto consigli per la  sabili per i soccorsi di pri- 
per intervenire immedia- migliore attuazione del та necessità e per gli aiuti 
tamente là dove е neces- progetto. L'iniziativa ha di sviluppo destinati a 15 
sario un urgente soccorso ottenuto РАК Patronato paesi dell’Africa. 
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Comitato Nave della Pace 

С/с postale n. 15285000 
Bonifico bancario a credito 
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Sono passati ormai diversi mesi 
dalla prima comparsa del QL sul 
mercato inglese e italiano. Dopo 
molte vicissitudini pare si sia fi- 
nalmente giunti a una versione 
definitiva o comunque destinata 
a non subire modifiche sostan- 
ziali a medio termine. Ecco un 
panorama riassuntivo della si- 
tuazione. 


JM, la definitiva 


Come è abbastanza noto, per ricono- 
scere la versione del proprio QL è suf- 
ficiente digitare 


print ver$ 


Dopo varie versioni, alcune note a tutti 
e altre quasi mitiche (come, in Italia, lo 
Spectrum Issue 1), è stata decisa quel- 
la definitiva, chiamata JM; delle altre 
ricordiamo i nomi AH, FB, PM, KB. Ha 
fatto una timidissima comparsa, a titolo 
sperimentale, anche una versione suc- 
cessiva alla JM, chiamata JS, installata 
su 89 calcolatori e poi subito abbando- 
nata, in quanto peggiore delle prece- 
denti. Le differenze tra le varie versioni 
sono piuttosto marginali, e consistono 
in una riduzione progressiva del nume- 
ro di bug del sistema operativo QDOS, 
evidenti o nascosti. In più sono state 
adottate alcune modifiche hardware te- 
se a migliorare le prestazioni dei micro- 
drive e a ottenere un’immagine video 
soddisfacente anche usando un televi- 
sore. Si può dire che il funzionamento 
del QL JM sia perfetto: esistono anco- 
ra alcuni bug minori nel QDOS che 
però non pregiudicano assolutamente, 
in alcun modo l’attività “normale” di un 
possessore di QL (vale a dire l’uso in 
qualunque maniera dei microdrive, 
l’utilizzo dei quattro programmi appli- 
cativi forniti insieme al computer, la 
programmazione in SuperBASIC o in 
qualunque altro linguaggio alternativo 
di quelli disponibili, l'esecuzione — ov- 


QL, lo stato delle cose 


di Lucio Bragagnolo 


viamente! — dei programmi, il collega- 
mento in rete locale, l'utilizzo delle va- 
rie porte di input/output presenti), 
esattamente come accade per lo Spec- 
trum e per tutti gli altri computer esi- 
stenti. Dimenticavamo: chi volesse so- 
stituire la sua ROM vecchia versione 
con la JM potrà spedire il proprio QL 
alla Sinclair per vederlo tornare aggior- 
nato. E un peccato che il QDOS non 
permetta il multitasking da BASIC (co- 
munque possibile in linguaggio macchi- 
na) anche se questa limitazione era 
stata ampiamente prevista dagli addet- 
ti ai lavori рій competenti. 


L'hardware interno 


Il microprocessore ë il Motorola 
68008, fratellino minore della famiglia 
68000, con architettura a 32 bit (anzi- 
ché gli 8 dello Z80A Spectrum), coa- 
diuvato nelle sue funzioni да un Intel 
8049, che si occupa della tastiera, del 
suono e delle interfacce seriali RS232, 
lasciando al 68008 il compito di esegui- 
re i programmi dell’utente e gestire il 
video. Sulla circuiteria non се molto 
da dire: sono state adottate soluzioni 
piuttosto economiche, nello stile Sin- 
clair (basta pensare al prezzo del QL), 
che in ogni modo non vanno a scapito 
dell'affidabilità. 

Abbiamo già provato varie volte a tene- 
re acceso il QL per intere gior- 
nate, anche per constatare la precisio- 
ne dell’orologio interno incorporato, 
che, non possedendo una propria bat- 
teria come invece accade nel Macin- 
tosh Apple, va inizializzato ad ogni ac- 
censione del computer. Il 68008 differi- 
sce dal 68000 nella struttura del bus 
dati esterno, che è di 8 bit anziché 16 
o addirittura 32 come nel 68020, ulti- 
mo “parto” della Motorola per questa 
famiglia di microprocessori. In soldoni, 
la differenza si traduce in una riduzione 
di velocità di esecuzione, che rimane 
però ugualmente in misura incredibile 
sopra gli attuali standard degli home e 
personal computer almeno rimanendo 


nel campo del linguaggio macchina (chi 
ha visto un Macintosh in funzione se ne 
immagini un equivalente un ро” lento, 
in una misura che varia a seconda del- 
l’uso più o meno intenso che viene fat- 
to, appunto, del bus dati). Una ulterio- 
re leggera riduzione è data dal fatto 
che il QL non possiede un coprocesso- 
re video, cosí che la gestione di que- 
st'ultimo, come già detto, grava sulle 
spalle del 68000, che, ricordiamo, si 
trova a dover amministrare, nel caso 
peggiore, un totale di 5127256 = 
131072 pixel rispetto ai 320*200 = 
64000 del Commodore 64, ai 256*192 
= 49152 dello Spectrum e dello stan- 
dard MSX e i 512*342 = 175104 del 
Macintosh (che регб ha un video mono- 
cromatico). Si риб constatare l’effetto 
di questa soluzione usando una delle 
prime versioni del word processor Quill: 
i caratteri digitati (quindi “visti” dall'In- 
tel 8049) appaiono sullo schermo (com- 
petenza, ricordiamo, del 68008) con un 
leggero ritardo, dando l’impressione 
che sia possibile perderne qualcuno per 
strada, cosa invece pressoché impossi- 
bile. Usando il linguaggio macchina, ri- 
petiamo, si ottengono risultati impres- 
sionanti, mentre per il BASIC ovvia- 
mente le cose vanno in modo diverso 
(ne parleremo più avanti). 

La RAM residente, composta da 16 
chip installati nel QL, è di 128K, di cui 
32 sono usati per lo schermo (a fronte 
dei quasi 7K dello Spectrum); eccettua- 
ta l’area delle variabili di sistema (im- 
precisata, ma comunque di estensione 
limitata) l’utente ha completamente a 
sua disposizione poco meno di 96K per 
i programmi (41K per lo Spectrum 
48K, un massimo di 64K — che diventa- 
no 38K usando il BASIC - per il Com- 
modore 64 e lo standard MSX, 128K 
— di cui 64 utilizzabili solo paginando la 
memoria - per Apple // e e // c, un 
massimo di 512 — teorici e mai effettivi 
— per il cosiddetto “Fat Mac", men- 
tre per il Macintosh non espanso il di- 
Scorso é identico, ma su una base di 
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128К). Attraverso espansioni esterne il 
68008 può gestire direttamente, senza 
paginazioni o trucchi vari, la bellezza di 
un Megabyte (1024К per i profani). So- 
lo placintosh offre prestazioni superio- 
ri — ben 16 Megabyte — mentre tutti gli 
home/personal computer con micro- 
processore a 8 bit non vanno oltre i 
64K. 

Il QL ë ben fornito anche di porte di 
input/output: un connettore per espan- 
sioni di memoria, floppy o hard disk, 
un connettore per cartucce ROM, due 
connettori per joystick, due connettori 
RS232, la presa di collegamento col te- 
levisore, una presa RGB per monitor e 
due connettori per la rete locale (in 
pratica delle RS232 “povere”). Note 
dolenti? Mancano interfacce parallele, 
e le due porte seriali possono operare 
contemporaneamente, ma non con ve- 
locità di trasmissione/ricezione diverse 
(queste ultime sono comunque regola- 
bili su diversi valori, da 75 a (solo in 
trasmissione 19200 baud). Per quanto 
riguarda il collegamento col monitor, a 
causa dell’ata frequenza di scansione 
ne occorre uno cosiddetto ad alta riso- 
luzione, o sarà impossibile riuscire a vi- 
sualizzare l’intero schermo generato 
dal QL senza che questo, letteralmen- 
‘te, esca dal video. Per finire ricordiamo 
la presenza di un tasto di reset distrut- 
tivo (equivalente al RUN USR 0 di 
Spectrum e ZX81) e, ahimè, l'assenza 
di un qualsivoglia interruttore. 


L’hardware esterno 

La tastiera del QL è stata fatta oggetto 
di molte critiche, secondo noi solo par- 
zialmente giustificate. Sebbene infatti 
la digitazione non risulti agevole come 
ad esempio su tutte le keyboard Ap- 
ple, il funzionamento è perfetto, e la 
velocità massima raggiungibile è со- 
munque proibitiva per qualunque me- 
dio utilizzatore. Gli unici problemi po- 
trebbero essere quelli di una velocissi- 
ma dattilografa “a 10 dita” impegnata 
in operazioni di word processor. Le no- 
stre riserve riguardano invece la posi- 
zione dei tasti CAPS LOCK e CTRL, 
che sarebbe stato molto meglio scam- 
biare, visti gli equivoci che accadono 
ogni tanto digitando con una certa ve- 
locità e...distrazione. In più non viene 
segnalata in alcun modo la presenza о 
meno del CAPS LOCK, anche se le 
conseguenze di ciò sono più fastidiose 
che altro. 

Altro soggetto di critiche ad oltranza 
sono i microdrive, alle quali anche qui 
ci allineiamo solo in parte. La nostra 
esperienza (solida e di lunga data) con 
i microdrive QL è stata tutto sommato 
positiva, confermando la nostra opinio- 
ne secondo cui i microdrive, se usati 
con un minimo di attenzione, sono affi- 
dabili, tanto che da tempo abbiamo ri- 
nunciato al backup di ogni programma 
(eccettuati quelli forniti col QL), pre- 
cauzione però che andrebbe presa al- 
meno nel caso di file molto grandi o 
particolarmente importanti. L'unico in- 
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CODE 

CONTINUE 

COPY 

COPYSN 

COS 

СОТ 

CSIZE 

CURSOR 

DATA... READ.. RESTORE 
DATE 

DATE$ 

DAY$ 

DEFine FuNction... END DEFine 
DEFine PROCedure.. END DEFine 


fig. 1 - le parole chiave del SuperBASIC 


NEW 


RAD 
RANDOMISE 
RECOL 
REMark 


M 
REPeat... END REPeat 


SDATE$ 


WINDOW 


пай 


conveniente accadutoci ë stato un ш- 
comprensibile rifiuto del calcolatore di 
formattare — solo formattare — alcune 


cartucce (ne abbiamo provate diverse) 
sul microdrive 2, rifiuto effettuato una 
ventina di volte, dopo di che il QL ha ab- 


bandonato ogni remora, funzionando 
piü che regolarmente. Le nostre uniche 
perdite di dati si sono verificate a cau- 
sa di bug presenti nelle prime versioni 
dei quattro programmi (ne parleremo 
piü avanti). E chiaro che il microdrive 
non ë certo la soluzione migliore per un 
uso professionale о aziendale: si tratta 
comunque di due memorie di massa in- 
serite nel computer che possono risul- 
tare utili per backup di emergenza o 
se, ad esempio, avete deciso di portar- 
vi in vacanza il calcolatore e avete dei 
problemi di spazio: l'ingombro supple- 
mentare dei microdrive è uguale a ze- 
ro, e le cartucce trovano comodamente 
posto nel più piccolo dei taschini (tra 
l’altro il loro costo, prima proibitivo, si 
è ridotto di recente — per chi legge, da 
qualche mese — a valori molto più ade- 
guati). Ad ogni modo, saranno presto 
disponibili anche in Italia diversi model- 
li di disk drive disegnati per il QL, da 
3”1/2 e da 5”1/4, in grado di accon- 
tentare anche i più esigenti. La velocità 
dei drive, per concludere, è leggermen- 
te superiore a quanto avviene nello 
Spectrum; la formattazione delle car- 
tucce indica generalmente una capaci- 
tà di 105/110K. C'ë da dire che il si- 
stema operativo restituisce il controllo 
all'utente molto prima che il drive ab- 
bia finito di lavorare, consentendo a 
volte grandi risparmi di tempo effetti- 
vo, e usa inoltre la RAM libera come 
memoria di supporto per il microdrive, 
cosí che la prima directory richiede 
qualche secondo per essere caricata, 
mentre quelle successive vengono cari- 
cate direttamente dalla RAM e sono 
quindi immediate. Lo stesso accade per 
i programmi: dando un NEW, questi 
non sono più rintracciabili in maniera 
normale, ma sono sempre presenti in 
memoria, tanto che, se richiamati, il dri- 
ve gira solo per una frazione di secondo 
e il programma viene caricato istanta- 
neamente, per Гарриліо non dalla car- 
tuccia ma dalla RAM. 


H BASIC 


Del BASIC, anzi SuperBASIC bisogna 
distinguere due aspetti: la sua conce- 
zione e l’effettiva resa alla prova dei 
fatti. 

Per quanto concerne il primo punto 
non sapremmo dove appigliarci per fa- 
re una critica qualunque: il nostro giu- 
dizio è nettamente positivo. Il Super- 
BASIC è un linguaggio modernissimo, 


fig. 3 - visione posteriore del QL, con i 
vari connettori in evidenza 


fig. 2 - i programmi disponibili 
per QL a tutto maggio 1985 


nome 
QL Cash Trader 


Pascal 

Forth 
Assembler 
Typing Tutor 
Monitor 


Quilmerg 
Utility Pack 


QL/APL 


Hungry Harry in the Haun- 


ted House 


QL Sprite Generator 


QL Super Backgammon 


QI Super Monitor 


QL Assembler 
68К-05 
С Compiler 


QL Touch'n'Go 


Assembler 
BCPL 
Lisp 


Hi-res Screen Dump 
Quill 

Abacus 

Easel 

Archive 

QL Chess 


Business Accounts 


QL Entrepreneur 
QL Project Planner 
QL Decision Maker 
QL Toolkit 


QL Screen Editor Plus 


Solar Invaders 
Wall-Breakers 
Draughts 

Mined Your Path 
Statistical Averages 
Calendar 


UCSD Pascal 
UCSD Fortran 
Advanced 
Toolkit 


Sbutil 
Mbackup 
Terminal 
Chargen 
Sbextras 
FM 

FED 
DisASSEM 
NeatList 


Development 


marca 
Accountancy Software of Torquay 


Computer One 


Pitch Associates 


MicroAPL 


Snowsoft 


Digital Precision 


GST Computer Systems 


Harcourt 


Metacomco 


Positron Computing 
Psion 


Quest 


Sinclair Research 


S Gaymer 


Equate 


TDI Software 


DataManagement Software 
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completamente strutturato, dotato di 
tutto il necessario е del рій che super- 
fluo per godere dei maggiori vantaggi 
del Pascal (grande leggibilità del pro- 
gramma, costruzione modulare) senza 
doverne sopportare la pesantezza sin- 
tattica e l’eccessivo, a volte, rigore for- 
male. In più il SuperBASIC consente 
anche, a chi si accontentasse del BA- 
SIC normale, di ragionare regolarmen- 
te in termini di СОТО e GOSUB (inutili 
invece per chi sceglie la programmazio- 
ne strutturata di DEFine PROCedure... 
END DEFine, IF... THEN... EL- 
SE...END IF e SELect ON...END SE- 
Lect), ed è per questo che sono rimasti 
i numeri di linea, altrimenti superflui. 
Esiste inoltre, all’interno del linguaggio, 
un mini Logo — con tanto di PENUP, 
PENDOWN, MOVE, TURN, TURNTO 
—, un set completo di istruzioni grafiche 
di tutti i generi (manca solo una FILL 
diretta, compensata tuttavia da FILL 1 
e FILL 0), la possibilità di spezzare gli 
intervalli dei cicli FOR...NEXT...END 


fig. 4,5,6 - la tastiera; un'immagine del 
manuale e del software fornito su micro- 
drive; l’interno (notare in alto a sinistra 
i microdrive e a destra lo spazio per 
l'espanzione di memoria). 
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QLDiary 
QLLife 
Databoss 
Mailboss 
Animal 
Project 
Screencopy 
Dirmap 
Freemem 


Merry Muncher 
Fire Tower 
Advance Invaders 


House Plant Bank and 
Planner 


Stockmarket Manager 
Agenda 

Area Radar Controller 
Screen Dump 


QL Payroll 

Full Screen Editor 
Gambler 

Beat the Clock 
Auto-Draw 

WD Utilities 


WD Morse Tutor 
Ref QL 


QL Art 
QL Archiver 
QL Dumps 


Assembler Development 
Package Adder 


D-Day 


The Lost Kingdom of 
ZQUL 

WEST 

GraphiQL 


È 


Blain Software 


Sort Softronic 
Filedump 
QL Forth R.E. Jackson 


Shrub Bank and Planner SuperPlant Software 


Space Trek Swansoft 
Fantasia Adventure S.B. Software 
Terminal Emulator QCode 
68000 Assembler/Editor 

3 Games 

Executive Adventure Intersoft 


Portfolio Software 
Q-Soft 

Shadow Soft 
Miracle Systems 


TR Computer System 
Bedsoft 


WDSoftware 


Eidersoft 


Games Workshop 


Talent Computer Systems 


| 


FOR o di RND (pensate alla comodità 
di avere un ciclo FOR i =1 TO 15 
STEP 3, 17 TO 25, 44, 47, 55, 60 ТО 
100 STEP 2 o ип RND (14 ТО 299)!), 
tutto il necessario per gestire finestre, 
eseguire calcoli di ogni tipo (logaritmi 
naturali e in base 10, funzioni trigono- 
metriche, divisioni, per modulo...), ope- 
rare in memorie e sui file di program- 


mi, di dati o di linguaggio macchina (ba- 
sti accennare all'esistenza di tre tipi di 
РОКЕ, da 8, 16 o 32 bit). Sono presen- 
ti anche istruzioni di autonumerazione 
e rinumerazione, di grande comodità e 
facilità d’uso: in definitiva siamo con- 
vinti che ben difficilmente chiunque riu- 
scirà a padroneggiare il SuperBASIC 
tanto da riuscire a sfruttarlo nel modo 


migliore е al 100%. 

А proposito del secondo aspetto esiste 
invece qualche perplessità. Si sa che ë 
tradizione Sinclair scrivere intë#preti 
BASIC ottimi dal punto di vista concet- 
tuale, ma piuttosto lenti in esecuzione, 
e anche nel QL le cose vanno alla stes- 
sa maniera, anche se su un piano molto 
diverso di prestazioni da quello, ponia- 
mo, dello Spectrum. “Con un 68008 a 
7.5 MHz di clock” - scriveva l’autore- 
vole rivista americana “Byte” — “devo- 
no essere stati fatti degli sforzi per far 
andare il QL cosî piano”. Il SuperBA- 
SIC è lento (intendiamoci bene: “lento” 
sta a significare, più o meno, una velo- 
cità media di elaborazione leggermente 
superiore a quella del Commodore 64) 
per alcuni aspetti e di una velocità qua- 
si spaventosa in altri, rispecchiando pe- 
raltro alcune caratteristiche del 68008. 
Cosi l’elaborazione numerica è estre- 
mamente veloce: abbiamo provato a 
far eseguire al QL un benchmark sug- 
gerito sulla rivista “Creative Compu- 
ting”, dove venivano riportati i dati di 
200 prove relative a circa 140 calcola- 
tori di tutti i tipi. Il QL si è classificato 
al dodicesimo posto (PC IBM dicianno- 
vesimo, Olivetti M20 circa cinquantesi- 
mo, Atari 800XL  centoventesimo, 
Commodore 64 e Apple intorno alla 
centocinquantesima posizione, Philips 
MSX centosessantacinquesimo, Spec- 
travideo e TI-99/4A centosettantesimi, 
ZX81 e Spectrum intorno al centoot- 
tantesimo posto). Altre attività, al con- 
trario, vengono svolte con relativa len- 
tezza, tanto che, esempio estremo, su 
un singolo ciclo FOR...NEXT di valore 
non elevato il Commodore 64 è più ve- 
loce. Altra osservazione negativa: alcu- 
ne istruzioni del SuperBASIC sono sog- 
gette a limitazioni non citate nel ma- 
nuale, come SELect ON, che funziona 
solo su valori numerici e non su strin- 
ghe. Parlando infine della famosa 
“coercion” (la possibilità di scrivere 
a$=a+b$ quando a$ e b$ sono strin- 
ghe contenenti solo numeri, rendendo 
superflui gli operatori VAL e STR$, 
inesistenti in SuperBASIC), non ci sen- 
. tiamo di definirla negativamente o posi- 
tivamente, in quanto non abbiamo an- 
cora ancora svolto sul QL una mole di 
programmi tale da permetterci di capi- 
re se realmente sia un aiuto (come han- 
no detto alcuni nostri collaboratori) o 
una complicazione (secondo gli altri). 
Probabilmente l'opinione cambia a se- 
conda del grado di esperienza e quindi 
di abitudine maturato su BASIC con- 
venzionali. 

Per riassumere, il SuperBASIC ë un ot- 
timo linguaggio per chi comincia o è 
digiuno di programmazione strutturata, 
ed é in grado di assolvere egregiamen- 
te le sue funzioni fino all'ambito picco- 
lo-professionale. Per impieghi avanzati, 
particolari e ultraprofessionali è invece 
consigliabile l'uso di un altro linguaggio 
fra i tanti (praticamente tutti!) disponi- 
bili per il QL, vista l'assenza di grossi 
problemi dovuti alla eventuale carenza 


di memoria — dato che anche solo 96K 
non sono poi cosí pochi -, e magari 
(perché no?) utilizzando il tutto in con- 
giunzione con un sistema operativo al- 
ternativo disponibile su cartuccia ROM 
(ne sono già disponibili almeno due). 
Ah, ancora un paio di curiosità: nel Su- 
perBASIC esistono due istruzioni sup- 
plementari. Una di queste à ELLIPSE, 
citata, ma non illustrata, nel manuale; 
l’altra appare solamente іп un cantuc- 
cio del manuale ed è stata “scoperta” 
in contemporanea dai nostri collabora- 
tori Stefano Pogliani ed Enrico Minetti: 
si tratta di MISTake, comando usato 
per far accettare all’interprete Super- 
BASIC linee di programma sintattica- 
mente errate, nell’ambito di operazioni 
di debug, stesura, revisione dei pro- 
grammi e di MERGE. Curiosando nella 
ROM è inoltre possibile rintracciare pa- 
role chiave probabilmente inserite nelle 
prime versioni e poi abbandonate, co- 
me ad esempio WHEN ERR. Questi 
“relitti” di epoca passata non sono tut- 
tavia accettati dall’interpete. Chi tro- 
vasse altre keyword sconosciute ci scri- 
val La seconda curiosità è più nota, an- 
che se sempre seminascosta sul ma- 
nuale, ma non a tutti: in fase di EDIT, 
non date ENTER una volta finito di mo- 
dificare una linea, ma “cursore giù” o 
“cursore su”: vi verrà proposta per 
l'editing la linea successiva (о ргесе- 
dente), senza bisogno di dover digitare 
ogni volta EDIT... 


Pur presentandosi bene esteticamente, 
ci sembra un ро” sotto gli standard sta- 
biliti con Spectrum e ZX81. A parte un 
foglio colmo di errata corrige, peraltro 
relativi solamente alla prima parte del 
manuale, l'impressione che si ricava è 
che si tratti di un manuale per princi- 
pianti, da leggere come un libro di te- 
sto ma non da consultare. | singoli ar- 
gomenti sono rintracciabili con difficol- 
tà, e mancano sia una mappa della me- 
moria dettagliata che un elenco delle 
principali variabili di sistema. A propo- 
sito, già che ci siamo ne diamo qualcu- 
na, tanto per solleticare la curiosità dei 
già possessori di QL: potete vedere nel 
riquadro a pagina 16. 


Abacus, Archive, Easel, Quill 


Per quanto riguarda una recensione 
approfondita del package fornito dalla 
Sinclair insieme al QL vi rimandiamo a 
un prossimo numero, sia per motivi di 
spazio sia perché entreremo in posses- 
so solo a giorni delle versioni 2.0 (cioè 
quelle definitive e di cui ci sembra più 
giusto parlare) di tutti e quattro i pro- 
grammi. Per adesso riportiamo solo le 
prime impressioni; quelle positive ri- 
guardano la grande facilità d'uso data 
dalla ottima impostazione generale - 
uniforme per tutti i quatto programmi - 
e dalla vastità delle funzioni di Help, in 
pratica sostitutive del manuale. La ve- 
locità di elaborazione dati è mediamen- 
te buona; il programma che ci ha colpi- 


to maggiormente è Easel, intuitivo пе!-. 
l’uso al punto di ricordarci il miglior 
software per Macintosh. Pure molto 
positiva è la facilità di installazione di 
caratteri di controllo per stampanti di 
ogni tipo (abbiamo provato finora con 
la Epson FX-80, la Diablo 630 con cui 
listiamo abitualmente i programmi e la 
Seikosha SP 800 I, dedicata espressa- 
mente al QL, già disponibile presso la 
Rebit e di cui riparleremo). 

Le note negative sono frutto dell’uso 
dei programmi in vecchia versione 
(1.03 per Quill, 1.01 per gli altri) e con 
soli 128K di memoria, ricalcando in 
quest’ultimo caso gli stessi problemi 
che incontrano gli utenti di Macintosh 
non espanso a 512K. Brevemente, i di- 
fetti peggiori di queste versioni sono 
una spiccata tendenza a “piantarsi” 
quando uno meno se lo aspetta, il ritar- 
do già menzionato tra l’input da tastie- 
ra e l'output su video, la lentezza di 
esecuzione di alcuni comandi, il conti- 
nuo accesso ai microdrive (che deter- 
mina noiose attese e perdite di tempo, 
oltre a favorire crash imprevisti) e lo 
scarso ammontare di RAM libera, su 
cui però c’è da fare un discorso a par- 
te. Il problema è identico a quello di 
Macintosh: il software che viene scritto 
è estremamente sofisticato, e in quanto 
tale richiede per forza grandi quantità 
di memoria, in misura tale da penaliz- 
zare l’utente che utilizza la versione ba- 
se frequentissimi accessi a disco (Mac) 
o microdrive (QL), che diventano ov- 
viamente sempre più rari man mano 
che viene aggiunta RAM supplementa- 
re. Un responsabile della Psion ha re- 
centemente dichiarato che con 
un'espansione di soli 64K un utilizzato- 
re di Quill versione 2.0 potrebbe scri- 
vere oltre venti pagine di testo prima 
di dover "subire" un accesso del pro- 
gramma al microdrive (anche se il siste- 
ma operativo, come già detto, riesce 
molte volte a restituire il controllo della 
tastiera all'utente molto prima che il 
microdrive abbia smesso di girare). 
Con espansioni di 128, 256 o 512K un 
grafomane distratto potrebbe perfino 
riempire la memoria con piü testo di 
quanto ne possa venire registrato su 
una cartuccia, e francamente non sap- 
piamo se nei quattro programmi sia 
prevista o meno una tale eventualità, 
né tantomeno come essi si comporte- 
rebbero. 

A parte questo, secondo la Sinclair le 
versioni 2.0 eliminerebbero tutti gli in- 
convenienti sopra descritti, oltre ad au- 
mentare leggermente, grazie alla com- 
pattazione del programma, la memoria 
libera per i dati (attualmente, per fare 
un esempio, di 15K per Abacus e 8K 
per Easel). Ne riparleremo. 


Espansioni hardware 


Come ë consuetudine dell'industria bri- 
tannica, e come é già successo per lo 
Spectrum, già diverse aziende si sono 
fatte avanti con loro prodotti per chiu- 
dere i "buchi" hardware lasciati dai 
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progettisti Sinclair nel QL. Attualmen- 
te Гејепсо del materiale disponibile 
prevede floppy disk da 3"1/2 e 5”1/4, 
hard disk da 5/10 Megabyte, interfac- 
ce parallele di tutti i tipi (di cui alcune 
consentono anche la selezione di valori 
diversi per le due porte seriali del QL, 
costruite una per le stampanti e l'altra 
per i modem), monitor ad alta risolsu- 
zione, espansioni di memoria, stampan- 
ti dedicate, modem, joystick, contenito- 
ri di cartucce microdrive (!), consolle 
porta-tutto e altro ancora. Di importan- 
te manca all'appello principalmente un 
connettore a piü vie, dato che la mag- 
gioranza di questi prodotti ë studiata 
per il collegamento tramite il connetto- 
re previsto dalla Sinclair per le espan- 
sioni di memoria. 

Queste ultime, al momento, sono quel- 
le che suscitano la maggiori perplessi- 
tà, almeno per le рій grandi, da 256K 
e 512K. Infatti, in attesa della "Wafer 
Scale Integration" promessa da sir Cli- 
ve, in grado di condensare 512K in uno 
spazio ridottissimo, bisogna acconten- 
tarsi di grosse schede realizzate in ma- 
niera convenzionale, ingombranti e ri- 
chiedenti alimentazione autonoma. Per 
il momento 2 probabilmente meglio 
orientarsi (anche per questioni econo- 
miche) su un'espansione di massimo 
128K, peraltro рій che sufficiente per 
la stragrande maggioranza delle appli- 
cazioni, anche considerando il fatto che 
questo limite corrisponde a poco piü 
della massima quantità di dati memo- 
rizzabili in una cartuccia (supponiamo 
di avere un Quill che necessiti di 80/ 
90K di memoria: dei 256K complessivi 
a disposizione ne rimangono circa 170, 
che diventano piü o meno 140 conside- 
rando la memoria dedicata allo scher- 
mo. Una cartuccia puó ospitare nor- 
malmente 105/110K). E chiaro che 
l'uso di un disk drive da 3”1/2 con una 
capacità di 400K sposta notevolmente 
i termini della questione... 


Espansioni software 

Dopo una certa qual sterilità iniziale, 
dovuta alle difficoltà ormai note, anche 
il mercato del software per QL comin- 
cia a muoversi, agevolato anche dal ca- 
lo di prezzo delle cartucce microdrive, 
il cui alto costo scoraggiava gli investi- 
menti delle software house. La direzio- 
ne del movimento ë peró diversa da 
quella dello Spectrum, rivolgendosi in 
misura maggiore ai campi personal bu- 
siness, grafica, utilità e, soprattutto, lin- 
guaggi. Per il QL sono infatti già dispo- 
nibili Assembler (dotato di un bellissi- 
mo full screen editor), Pascal, Pascal 
UCSD (uno degli standard piü usati nel 
mondo), Forth, APL, BCPL, C, Lisp, 
Fortran e probabilmente ancora qual- 
cun altro, che in questo momento ci 
sfugge o non ë ancora uscito nel mo- 
mento in cui scriviamo, come dire tutto 
quello che puó servire a un utilizzatore 
evoluto (specialmente parlando di C e 
Pascal, i due linguaggi piü utilizzati in 
questo periodo in campo professiona- 
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le). La grande quantità di memoria di- 
sponibile rende possibile anche la pro- 
grammazione in Lisp, con tutte le impli- 
cazioni nel campo dei sistemi esperti e 
dell'intelligenza artificiale di cui questo 
linguaggio ë sempre stato primo alfie- 
re. 

I programmi a carattere manageriale e 
finanziario sono tutti notevoli: citiamo 
qui Cash Trader, Project Planner, De- 
cision Maker e Payroll come i migliori. 
Nel campo delle utility segnaliamo lo 
Sprite Generator, il sistema operativo 
CP/M 68K е l’Hi-res Screen Dump. In- 
fine, tra i giochi facciamo i nomi di Su- 
per Backgammon, Radar Area Con- 
troler e lo stupendo QL Chess della 
Psion, vincitore dell'ultima campionato 
del mondo di scacchi elettronici e che 
non puó che stupire chiunque con la 
sua visione tridimensionale della scac- 
chiera. Bisogna dire, peró, che, queste 
eccezioni a parte, l'ancora scarsa cono- 
scenza del QL non ha finora portato a 
grandissime realizzazioni in campo sof- 
tware: il Manic Miner o il Knight Lore 
del QL sono di là da venire. E, pensan- 
do alle potenzialità del QL, immaginar- 
ci ció che potrebbe essere realizzato ci 
fa correre un sottile brivido di piacere 
informatico lungo la schiena. 


Un giudizio 


Alla fine di questa (per forza di cose) 
sommaria, ma speriamo ugualmente in- 
teressante carrellata sul QL, il nostro 
giudizio ë sostanzialmente positivo, an- 
che se permangono su di esso alcune 
macchie d'ombra. Il QL si propone co- 
me una specie di Spectrum super evo- 
luto: pensandoci, sono stati potenziati o 
risolti tutti quegli aspetti sui quali lo 
Spectrum presentava carenze o inade- 
guatezze dovute all’...età (tastiera, BA- 
SIC strutturato e veloce, memoria, ri- 
soluzione grafica, memoria di massa, li- 


mitazione di colore - nel QL c'é com- 
pleta libertà di colorazione dei singoli pi- 
xel), editor di linea, assenza di routine di 
renumber o autonumber e via dicendo. 
D'altro canto, la ricerca di soluzioni eco- 
nomiche ha portato a penalizzare questa 
macchina rispetto ai possibili contendenti 
nel campo del personal business: un 
computer senza un interruttore non fa 
certo una buona impressione. La no- 
stra opinione é che, usato con un disk 
drive, espansione di memoria - facolta- 
tiva -, una buona stampante, un moni- 
tor ad alta risoluzione e l'uso di un lin- 
guaggio alternativo (e, si badi bene, tut- 
to questo ë già disponibile in Italia: do- 
vrebbe essere in vendita tra breve 
presso la Rebit un disk drive da 3"1/2 
perfettamente compatibile col QDOS e 
dotato del software necessario a copia- 
re su disco i quattro programmi Psion, 
successivamente richiamabili dall'inter- 
no di uno stesso menu), congiunto al 
SuperBASIC e a un Assembler, il QL 
possa validamente proporsi come un si- 
stema dal rapporto prezzo/prestazioni 
eccezionalmente competitivo rispetto a 
qualsiasi altro concorrente. Il grande 
punto di forza di questo calcolatore 8 il 
suo microprocessore, e questo fa ben 
sperare per il futuro in termini di sof- 
tware, una volta superata l'inevitabile 
fase di stallo che accompagna la vendi- 
ta di un numero di computer sufficiente 
a destare l'interesse delle software 
house, fase che anche lo Spectrum e il 
Commodore 64 (e perfino l'Apple |) 
hanno dovuto attraversare, per citare 
le tre macchine col più ampio parco 
programmi esistente al mondo. E in 
ogni caso, se non si volessero affronta- 
re spese eccessive, per un milione si 
può portare a casa uno dei più potenti 
home computer sul mercato, completo 
di una memoria di massa più che suffi- 
ciente per l’uso diciamo casalingo, in 


ewe 163891,1 


PRINT PEEK (163890) 
POKE W 163976,255 


POKE W 163976,0 
POKE W 163980,n 


POKE W 163982,n 


PRINT PEEK (164078) 
PRINT PEEK (164895) 


"congela" lo schermo. Lo stesso risultato si 
ottiene schiacciando contemporaneamente 
CTRL e F5, combinazione utilissima per in- 
terrompere momentaneamente un LIST, 
fermare il movimento di una immagine per 
scattare una foto, andare un momento in 
bagno...; una successiva pressione di F5 o di 
un altro tasto riattiva lo schermo, come ac- 
cade dando POKE 163891,0 

vi dice se state lavorando in modo monitor 
(0) o TV 

attiva CAPS LOCK 

disattiva CAPS LOCK 

altera il ritardo con cui un tasto premuto 
entra in autorepeat (n è espresso in decimi 
di secondo) 

altera la velocità di autorepeat. Se vi capita 
di assegnare 0 a entrambi gli ultimi due va- 
lori, vi sconsigliamo di tentare degli input da 
tastiera... 

vi dice quale microdrive è sotto il controllo 
del sistema operativo 

se siete collegati in rete, vi dà il numero di 
stazione del vostro QL. 


grado di funzionare, se necessario, ап- 
che su un comune televisore, completo 
di un package di programmi a livello 
professionale. Oltretutto è molto facile 
che il prezzo del QL sia destinato a 
scendere ulteriormente, soprattutto se 
avverrà il previsto lancio in Italia di un 
QL finalmente ufficializzato, sostenuto 
dalla Sinclair Italia e in versione assolu- 
tamente definitiva: è di questo periodo 
la notizia dell’arrivo della nuova serie 
di computer Atari, completi di mouse, 
tastierino numerico, disk drive da 3”1/ 


Lucio Bragagnolo 


Sono passoti ornoi diversi nesi dollo prino conporso del OL sul 
vicissitudini pore che si sio finalner 
versione definitivo о comunque destinoto о non subire 
nedio ternine. Ecco un ропогово riossuntivo dello situozione. 


е itoliono. Dopo nolte 


L 
Jf, to definitivo 


De е" sebbastanza 


sufficiente dig 


print ver$ 


Q INSERT 
£: Woraot 


fig. 8 - L'inizio di questo articolo, realizzato con QUILL. 
Notare il grassetto e la sottolineatura, visibili anche sullo 


schermo. 


жа Feb 


d’uso. 


2, gestione video a finestre e software 
stile Macintosh al prezzo di 700 sterli- 
ne (contro le 399 del QL). 


Tutto sommato, il QL ha le carte in 
regola per conquistare sul mercato ita- 
liano un buon successo: ma è ancora 
molto presto per fare previsioni sicure. 
Da parte nostra pensiamo di aver dato 
attraverso queste notizie, un contributo 
utile per una valutazione personale di 
quale sia l’effettiva validità del QL e di 
che livello siano le sue prestazioni. 


содповев 
indirizzo$ 
citto$ 

со 

nodific luogonosc$ 
дошповс 
obbonato$ 


tenza. 


dsheet ABACUS. 


agical пове 1 Boin 

повеф 1 Agilulfo 
$tennocchioni 

vio Doi Piedi 3.14 
Costel Di Sobbio (Y) 
$535 


1 
ій 
1 

р 16 

codfisci 1 STN CLL 99238 K666U 
L] 
1 
1 
1 


fig. 7 - Uno dei numerosi libri sul QL di- 
sponibili. 


t field 


Uolle di Silicone (HP) 
30 Feb 1899 


E: 


uoy 
no porente dello zio Rodegondoj 


fig. 9 - ARCHIVER è un data base flessibile e di discreta po- 


ant None figures 


fig. 11 - I comandi rimangono sempre gli stessi da programma 
a programma. Qui vediamo una tipica schermata dello sprea- 


SUPERSINCŠ 7/85 - 17 


LA 


Forth: il | lingua 


generazione = = 


di Marcello Spero 


Nato per impieghi specialistici, 
è oggi diffusissimo anche a livel- 
lo di home e personal computer 
...сотргезо lo Spectrum! 


stra serie abbiamo scelto il Forth. 
Non si tratta di una scelta casuale. Que- 
sto linguaggio, nato per scopi piuttosto 
specialistici, e destinato perciò a una 
ristretta fascia di utenza, nel corso dei 
suoi quindici anni di vita ha riscosso un 
interesse enorme, che lo ha portato ad 
una diffusione praticamente universale 
nel mondo della microelaborazione. 
Questa sua diffusione è dovuta, oltre 
che alle sue peculiari caratteristiche di 
sintassi, ad una singolare “predisposi- 
zione” all’uso su piccoli e piccolissimi 
sistemi, adattandosi sorprendentemen- 
te alla loro struttura hardware. 
Riprendendo il discorso fatto qualche 
tempo fa in queste pagine, possiamo 
dire che fra tutte le “macchine virtuali” 
create dai vari linguaggi, quella del 
Forth è la più simile alla macchina reale, 
cioè all'hardware del computer. 
In altre parole, usando il Forth non si 
perde di vista la vera struttura del com- 
puter che lo ospita. 
Ma vediamo le cose dall’inizio. 


ге secondo linguaggio della по- 


In principio 


Il Forth è stato inventato attorno al 
1970 da Charles H. Moore, allora al 


National Radio Astronomy Observato- . 


ry. L'obiettivo era di creare un linguag: 
gio per il controllo di processo, in parti- 
colare per il controllo dei telescopi. 
Considerato dal suo creatore un lin- 
guaggio della quarta generazione, il 
Forth prende il suo nome dall'aggettivo 
inglese "fourth", che significa appunto 
quarto. L'abbreviazione da fourth a 
forth ë dovuta al fatto che Moore speri- 
mentava il suo nuovo linguaggio su uno 
dei primi calcolatori interrattivi, l'IBM 
1130, in grado di accettare solo cinque 
caratteri identificatori. 

All'inizio il Forth à stato impiegato so- 
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NO, 


prattutto per simulazioni in tempo rea- 
le, cui è adatto per la sua grande veloci- 
tà. I miglioramenti introdotti nel corso 
degli anni successivi ne hanno permesso 
l’uso e la diffusione anche in altri campi 
dell’informatica. Come abbiamo detto, 
è stato adottato per molte applicazioni 
su mini e microcalcolatori, anche per- 
ché i programmi Forth occupano poca 
memoria. 

A differenza di quanto accade con altri 
linguaggi, primi fra tutti Logo e Pascal, 
i programmi in Forth talvolta sono, data 
la loro grande concisione, di difficile let- 


tura. Molte parole chiave di questo lin- . 


guaggio sono addirittura segni di inter- 
punzione. 

Nel Forth il dispositivo fondamentals 
del calcolatore è la “catasta” о “pila” 
(stack), un’area di memoria ЊЕ 
come una pila di vassoi, cosicchë il pri- 
mo elemento introdotto sarà l'ultimo a 
poterne essere estratto. Poche basilari 
nozioni di Assembler sono sufficienti a 
comprendere come questa struttura 
“virtuale” si adatti a meraviglia ad una 
struttura realmente esistente in tutti i 
microcomputer, lo stack appunto. 


EE 
ғ 


ЕО МЫ а A 


I calcoli “а rovescio” 


Pur apparentemente contorto nella for- 
ma, il Forth rivela immediatamente ia 
sua struttura estremamente semplice e 
chiara. 

Due sono le sue caratteristiche fonda- 
mentali, che lo rendono diverso da tutti 
gli altri linguaggi: il Forth è basato sul 
concetto di “parola”, ed utilizza la “no 
tazione polacca inversa”, che opera sul- 
la catasta. Questo a differenza di lin- 
guaggi come il BASIC, che è basato sul 
concetto di linea е numero di linea ed 
utilizza la notazione algebrica per l’in- 
troduzione di istruzioni di tipo aritmeti- 
co. 

Vediamo innanzitutto cosa intendiamo 
quando parliamo di “notazione polacca 
inversa” (molto conosciuta con la sua 
abbreviazione inglese RPN). In BASIC 
per far eseguire la somma di due nume- 
ri, supponiamo 5 e 7, e poterne cono- 
scere il risultato dobbiamo scrivere 


PRINT 5+7 


Questo modo di procedere corrisponde 
a quello cui siamo stati abituati a scuola, 


vale a dire la notazione algebrica. 

In Forth, viceversa (è proprio il caso di 
dirlo), la stessa operazione va espressa 
così: 5 


57-.; 


а significare 


5 prendi il 5 
7 prendi il 7 
+ sommali 


. stampa la somma 
; fine programma 


Raffigurandoci la catasta come una 
struttura orizzontale, possiamo raffigu- 
rarci il meccanismo di azione dell’opera- 
zione in questo modo: 

situazione iniziale 


Possiamo ora riscrivere la spiegazione 
dell'operazione appena vista, alla luce 
di quanto abbiamo capito: 


5 metti sulla catasta il numero 5 

7 metti sulla catasta il numero 7 

+ somma i primi due numeri sulla cata- 
sta, eliminali dalla catasta, metti sulla 
catasta il risultato 

. stampa il risultato 

Il segno “+” ed il segno “.” sono a tutti 

gli effetti “parole” del Forth. 

Stanno ad indicare cioè una determina- 

ta sequenza di operazioni. In Forth, in 

effetti, esistono solo due tipi di “ogget- 

ti”: le parole e i numeri. Le prime indi- 

cano una sequenza di operazioni, i se- 

condi vengono posti sulla catasta. 

A riprova del fatto che in una catasta 

“gli ultimi saranno i primi”, proviamo 


questa sequenza: 
456.; 


Il numero stampato sarà 6. Infatti: 


Se ora dessimo 


z, $ 
otterremmo sullo schermo prima 5, poi 
4 ed infine 3. 

Proviamo con qualcosa di piü comples- 
so: 


4-2"7+5(2+6) 


Questa espressione andrà introdotta 
con i numeri nell’ordine inverso a quello 
in cui dovranno essere utilizzati, mentre 
i segni, o meglio le parole, nel giusto 
ordine sequenziale. Questo consideran- 
do che per la sua stessa natura la nota- 
zione polacca inversa non dispone di 
parentesi. Quindi: 


ordine di esecuzione 


лр омон 
N 
+ 


e perciò: 

427526+*+* –; 

Seguiamo il procedimento пе! solito то- 
do: eccola; situazione dopo l'introduzio- 
ne di tutti i numeri: 


625724 


A questo punto, volendo conoscere il 
risultato, potremo dare 
-3 


in alternativa potremo proseguire con 
altre operazioni, che utilizzino il risulta- 
to appena ottenuto. 

E se volessimo ambedue le cose? 

In BASIC la cosa si risolverebbe con 


LET a=4-2*7+5*(2+6) 


PRINT a 
CET a=.. 


utilizzando cioè una variabile per con- 
servare il valore del risultato. 

In Forth possiamo fare così: 
427526+*+*-DUP.; 

Il calcolo avviene allo stesso modo di 


prima, ma una volta giunti al risultato 
la parola DUP ha questo effetto: 
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DUPlica cioè il primo elemento della 
catasta. In questo modo possiamo utiliz- 
zare uno dei due elementi per la stam- 
pa, e l’altro resterà memorizzato per 
calcoli futuri. 

Già questo semplice esempio dà 
un’idea di come questo tipo di matema- 
tica renda secondarie le variabili. 

Non che in Forth queste non esistano: 
semplicemente, il loro uso è piuttosto 
occasionale. 

Di parole che eseguono spostamenti o 
copie degli elementi in catasta ne esisto- 
no parecchie: 


DUP duplica il primo elemento 

DROP elimina il primo elemento 

SWAP scambia fra loro di posto i 
primi due elementi 

ROT ruota la posizione dei primi 
tre elementi 

e così via. 


Ora che ci siamo fatti un’idea sul funzio- 
namento della matematica RPN, tornia- 
mo al concetto di parola. 

Tutti i comandi e le istruzioni Forth, ab- 
biamo detto, sono parole. Ci sono le 
parole matematiche, che comprendono 
i segni delle operazioni, le funzioni di 
uso corrente quali SQR, MOD, ecc., 
quelle logiche, quelle per la manipola- 
zione della catasta, quelle per la format- 
tazione della stampa, e cosi via. 

Uno dei grandi vantaggi del Forth 6 co- 
munque quello di consentire all'utilizza- 
tore di ampliare a piacere questo voca- 
bolario, con parole create da lui per 
mezzo di associazioni di parole già esi- 
stenti. 

Se ad esempio definiamo la parola 


DOPPIO 


per ottenere il doppio di un numero pre- 
sente al primo posto sullo stack come 


де 


potremo іп un secondo tempo definire 
la parola 


QUADRUPLO 

come 

DOPPIO 27; 

e la parola SESTUPLO 
come 


DUP QUADRUPLO SWAP DOPPIO + 


, 


Perplessi? 

Proviamo a seguire il meccanismo di 
SESTUPLO, supponendo di volerlo cal- 
colare per il numero 3. Avremo: 
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LA СЛЕТИВА 


DUP 
33 
QUADRUPLO ) 
DOPPIO 
63 
2 
263 
12 3 
SWAP 
312 
DOPPIO : 
612 
+ 
18 


In questo modo la programmazione 
strutturata diviene una realtà relativa- 
mente semplice e dagli evidenti vantag- 


gi. 

C'é poi da dire che queste nuove parole 
sono riutilizzabili senza alcun problema 
in qualsiasi altro programma. Моп esi- 
ste, infatti, problema di corrispondenza 
di variabili, visto che viene utilizzata la 
catasta per il trasferimento dei dati. Ba- 
sterà che questi siano nel giusto ordine. 
Proprio per sfruttare a fondo l'estrema 
flessibilità delle nuove parole create 
dall'utilizzatore, praticamente tutti i 
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Forth prevedono la possibilità di memo- 
rizzarle su cassetta, disco o microdrive, 
a seconda della macchina. 

In questo modo, col tempo si creerà una 
vera e propria libreria di parole (vere e 
proprie routine, in realtà) per far fronte 
a tutte le necessità. 


Ripetiamo ... 


Abbiamo parlato di notazione matema- 
tica, di parole e di programmazione 
strutturata. Un linguaggio non puó peró 
dirsi tale senza appropriate strutture di 
ripetizione e di controllo, che consenta- 
no la creazione di cicli con controllo a 
contatore o a condizione. Sempre sulla 
base di determinate condizioni deve es- 
sere possibile effettuare delle scelte. 
In questo campo le strutture del Forth 
ricordano molto da vicino quelle del Pa- 
scal, ferma restando la sua sintassi “а 
testa in giù”. 

Troviamo infatti la struttura 


DO...LOOP 


per realizzare cicli a contatore. Il suo 
uso é molto semplice: 


— al primo posto in catasta dovrà esser- 
ci il valore di partenza del contatore 
— al secondo posto il valore finale. 


Ad esempio: 
10 1 DO .“pippo” LOOP ; 


stamperà per dieci volte la stringa “pip- 
po". Tra parentesi, come vedete 6 pos- 
sibile la stampa di una stringa delimitata 
da apici, che va peró posposta alla pa- 
rola di stampa. 

E se volessimo utilizzare, all'interno di 
un ciclo, il valore del contatore? 
Anche questo è possibile. 11 contatore 
di un ciclo DO...LOOP 6 sempre e solo 
la variabile I, o meglio: la parola I pro- 
duce come risultato al primo posto in 
catasta il valore corrente del contatore. 


Quindi: 

10 1DOI.LOOP; 
stamperà i numeri da 1 a 10. 
La struttura 

BEGIN...UNTIL 


serve invece a realizzare cicli con con- 
trollo a condizione. 


BEGIN 2 + DUP 8 = UNTIL ; 


БА CUL TUE А 


continua a sommare 2 al numero inizial- 
mente al primo posto in catasta, finché 
il risultato non sia uguale a 8. La dupli- 
cazione del risultato prima di sottoporlo 
alla condizione ë necesaria, in quanto 
quest'ultima per disporre degli oggetti 
del confronto li toglie dalla catasta. 
Esiste anche un ciclo 


BEGIN... AGAIN 
senza possibilità di uscita, e un 
BEGIN...WHILE...REPEAT 


che effettua un test in corrispondenza 
della parola WHILE; se il risultato e 1, 
cioé vero, prosegue fino a REPEAT e 
quindi riprende da BEGIN, altrimenti il 
ciclo viene troncato e si passa all'even- 
tuale istruzione successiva a REPEAT. 
Come vedete, la disponibilità di struttu- 
re é in questo campo addirittura ridon- 
dante. 

Per quanto riguarda le condizioni vere 
e proprie, troviamo la classica 


IF... THEN 
e la più complessa 
ТЕЎ ЕВЕ DHEN 


Il funzionamento segue sempre lo stes- 
so principio “al contrario”: 


9 > IF DROP THEN.... 


se non risulta maggiore del numero pre- 
cedentemente al primo posto in cata- 
sta, verrà eseguita la parola DROP, e 
quindi si proseguirà. In caso contrario 
l'esecuzione salterà oltre la parola 
THEN. 


9 > IE :DROP:ELSE 2+ THEN... 


Alla situazione precedente si ë aggiunta 
qui una nuova possibilità: se la condizio- 
ne 


9 > numero 


non è verificata, l'esecuzione passerà 
alle istruzioni contenute fra le parole 
ELSE e THEN. 

E superfluo precisare che fra IF ed EL- 
SE, fra IF e THEN e fra ELSE e THEN 
può essere inserito un numero qualsiasi 
di istruzioni. 

Per concludere questa necessariamente 
incompleta esposizione, vediamo un 
programmino che esegua un compito 
semplice, scritto prima in BASIC e poi 


БАРОКА ИСА 


іп Forth. 

Si tratta di una routine che somma fra 
loro solo gli elementi di un vettore aven- 
ti valore dispari. 


Ecco il listato in BASIC: 


10 DIM t(50) 

20 READ n 

30 FOR i=1 TO n 

40 READ (4) 

50 NEXT i 

60 GO SUB 1000 

70 DATA 4 

80 DATA 23,34,7,9 
1000 LET s=0 
1010 FOR і= 1 TO n 
1020 IF INT(t(i)/2)*2< > і) THEN 

GO TO 1040 

1030 LET s-s-t(i) 
1040 NEXT i 
1050 RETURN 


e in Fort: 


: SOMMADISPARI 
0 SWAP 0 


DO 
SWAP DUP 2 MOD 
IF + 
ELSE DROP 
THEN 
LOOP 


, 


e, per far partire il programma con i 
dati desiderati: 


23 34 7 9 4 SOMMADISPARI . ; 


Prima di tutto c'é da fare una precisa- 
zione. La stesura "indentata" del pro- 
gramma (cioé rientrante e verticale) 
non possibile con tutti i Forth in com- 
mercio. Noi l'abbiamo adottata qui per- 
ché rappresenta il modo piü chiaro di 
scrivere un programma del genere. 

E veniamo al confronto fra i due pro- 
grammi. 

In BASIC ë stato necessario dimensio- 
nare in eccesso un vettore, supponendo 
di non conoscere in anticipo il numero 
dei dati. 

Il programma, dopo una sequenza di 
assegnazione dei valori, chiama una 
subroutine che si occupa di sommare 
fra loro i valori dispari. Quindi si ritorna 
al programma principale, che effettua 
la stampa del risultato. 

Le variabili utilizzate sono: 


t per il vettore 

n per il numero dei dati 
s per la somma 

i come contatore 


Forth: 
il linguaggio della 
quarta generazione 


Il programma Forth inizia con il simbolo 


:”, che significa: “la parola che segue 
è il nome del blocco che la segue, fino 
al punto e virgola. L'esecuzione non sa- 
rà immediata, ma il blocco verrà memo- 
rizzato”. 


Per comprenderne il funzionamento oc- 
corre seguirne la meccanica in presenza 
dei dati, quindi dopo la chiamata da 
parte di 


23 34 7 9 4 SOMMADISPARI . ; 


la situazione sarà: 
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2990:7 34 23 


to) 
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EA € o a 


LOOP 


, 


Non sono state utilizzate variabili, e l’oc- 
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cupazione di memoria, in questo caso 
di catasta, è stata limitata alle reali ne- 
cessità. 


Dunque? 

Е sempre difficile dare un giudizio su di 
un linguaggio. Per questo ci limiteremo 
a sintetizzarne pregi e difetti principa- 
li. 

Il Forth è semplice da imparare e da 
usare, flessibile ed estremamente velo- 
ce. 

Contiene inoltre l'occupazione di me- 
moria a livelli davvero minimi. 

D'altra parte i programmi lunghi diven- 
tano intricati e poco comprensibili. Per 
questo é sempre consigliabile fare un 
intenso uso delle possibilità di struttura- 
zione, che si traducono in programmi 
formati da parole formate da altre paro- 
le e cosi via. 

Altra limitazione importante riguarda 
l'aritmetica, solo intera, che rende que- 
sto linguaggio non adatto ad applicazio- 
ni strettamente matematiche. 

Per quanto riguarda la disponibilità 
commerciale di Forth per lo Spectrum, 
la scelta é piuttosto ampia. Oltre al 
Forth compilato, della Sigma Technical 
Press, notevole e veramente veloce 
(probabilmente il più veloce linguaggio 
disponibile per Spectrum, anche se per 
nulla standard), sono molti i prodotti in- 
teressanti. Noi abbiamo provato l’inter- 
prete (è questa la forma normale per il 
Forth) della CP Software, completo e 
totalmente standard, a parte alcune 
estensioni per rendere disponibili con 
facilità dall'interno del linguaggio le 
possibilità grafiche e sonore dello Spec- 
trum. 


Miscellanea 


di Marcello Spero 


Alcuni “piccoli grandi suggeri- 
menti”, tra i più richiesti per 
Spectrum e ZX81 


randi novità, questa volta! 

Sospendendo, per il momento, il 
capitolo dedicato all’interfaccia (non vi 
preoccupate, prestissimo troverete in 
queste pagine ulteriori aggiunte, appli- 
cazioni e modifiche alla nostra ormai 
storica interfaccia), passiamo ad un 
nuovo argomento. 
In questa, e nelle puntate che seguiran- 
no, ci occuperemo di migliorare in tutti 
i modi le prestazioni delle macchine Sin- 
clair (certo: non si parlerà soltanto di 
Spectrum). In qualche caso si tratterà 
di rimediare a difetti, noti e meno noti. 
L’adeguamento dei “vecchi” Spectrum 
alle prestazioni del Plus sarà un altro 
obiettivo. E infine in preparazione una 
serie che riguarda l’uso dello Spectrum 
per scopi professionali, e di conseguen- 
za i problemi e le possibili soluzioni (ta- 
stiera professionale, collegamento con 
stampanti non ZX, ecc.). 
Speriamo inoltre di poter inserire in 
questa sede le risposte ai molti quesiti 
riguardanti vari argomenti di hardware 
che ci giungono da ogni parte. 


Plus o non Plus? 


Ed è proprio con la risposta ad un inter- 
rogativo che apriamo la prima puntata 
di questa nuova serie. 

L’apparizione dello Spectrum Plus ha 
suscitato generosi (e meritati) commenti 
di approvazione, ma anche qualche 
dubbio riguardante la sua effettiva com- 
patibilità con il “vecchio” fratello, non- 
ché sul come utilizzare i nuovi tasti al- 
l'interno dei propri programmi. 

Per quanto riguarda il primo problema, 
la prova dei fatti ha dissipato ogni per- 
plessità. E addirittura possibile, per gli 
utenti Spectrum di vecchia data duri a 
convertirsi, l’uso dei vecchi tasti shiftati 
in luogo dei nuovi (ad esempio, M e 
SYMBOL SHIFT al posto del punto), 
anche se sui primi non c’è più l'indica- 
zione di quei simboli ora assurti alla glo- 


ria di un tasto indipendente. L’uso dei 
nuovi tasti, ed in particolare dei cursori, 
in programmi realizzati da noi, come 
pure la modifica dei programmi com- 
merciali scritti in BASIC, richiede un 
discorso a parte. A proposito: i pro- 
grammi commerciali scritti in BASIC so- 
no pochi, purtroppo; certo, in teoria è 
possibile la modifica anche di quelli in 
linguaggio macchina, ma il tempo ne- 
cessario per individuare, all’interno del- 
la “selva” di codici, la routine di lettura 
della tastiera è tale da scoraggiare an- 
che i più testardi. 

Dunque, dicevamo che il vecchio siste- 
ma di utilizzo dei tasti cursore, basato 
su linee tipo 


10 IF INKEY$=“5” THEN... 
20 IF INKEY$=“6” THEN... 
30 IF INKEY$=“7” THEN... 
40 IF INKEY$=“8” THEN... 


rende utilizzabili gli ex-cursori (quelli ap- 
punto sui tasti 5,6,7,8), ma non i nuovi 
tasti. 

I nuovi tasti sono infatti “autoshiftanti”; 
dispongono cioè di un doppio contatto, 
e si comportano perciò come due tasti 
in uno: lo shift ed il relativo cursore. 
Per  programmarne correttamente 
l'uso, occorre perció tener presente 
che: 


cursore a sinistra - CHR$ 8 
cursore a destra - CHR$ 9 
cursore in basso - CHR$ 10 
cursore in alto = CHR$ 11 


e comportarsi di conseguenza. 
Le linee necessarie saranno quindi 


10 IF INKEY$=CHR$ 8 THEN... 
20 IF INKEY$=CHR$ 9 THEN... 
30 IF INKEY$=CHR$ 10 THEN... 
40 IF INKEY$=CHR$ 11 THEN... 


Lo stesso tipo di modifica può essere 
eseguita all’interno di programmi acqui- 
stati o copiati da riviste, che contengano 
riferimenti ai “vecchi” tasti cursore. 
Questo non tanto per snobismo nei con- 
fronti dello Spectrum “non Plus”, ma 
perché la posizione dei nuovi cursori è 
decisamente più comoda. 


Monitor! 


La seconda proposta riguarda invece 
tutti i possessori di Spectrum, Plus o 
non Plus. Si tratta infatti di un sistema 
per utilizzare come unità video un moni- 
tor od un televisore, provvisto di presa 
monitor (viene chiamata normalmente 
SCART). 

Si tratta, molto semplicemente, di colle- 
gare un tratto sufficientemente lungo di 
cavo schermato all’ingresso del modula- 
tore video. Procedete così: 


— aprite il vostro Spectrum, togliendo 
le viti che trovate sul fondo; 

— facendo attenzione a non distaccare 
i contatti che collegano la tastiera al 
resto del sistema, sollevate e fate scivo- 
lare indietro la parte superiore della 
macchina quanto più è possibile; 

— guardando il circuito, noterete in alto 
a destra una scatoletta metallica con la 
scritta ASTEC: si tratta del modulatore. 
Vi saranno chiaramente visibili, sul suo 
lato sinistro, due fili che entrano nel 
contenitore metallico; 

— di questi due fili quello verso di voi è 
il polo negativo, mentre quello in alto 
(o più indietro, se preferite) è il positivo; 
— prendete il cavo schermato e collega- 
tene la calza (cioè il conduttore intrec- 
ciato a maglia di forma tubolare che sta 
subito sotto il rivestimento esterno) al 
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negativo, cioè quello verso di voi; 

— il conduttore interno, sottile, va colle- 
gato invece al positivo; 

— l’unico modo di eseguire questi colle- 
gamenti è la saldatura. Per non rovina- 
re il modulatore questa dovrà essere 
veloce; se non vi sentite in grado, affida- 
te questo compito a una persona esper- 
ta; 

— all’altra estremità del cavo andrà col- 
legata una spina, diversa a seconda del 
tipo di apparecchio cui ci si deve con- 
nettere; 

— i monitor hanno normalmente un in- 
gresso uguale a quello di un televisore, 
ossia provvisto di presa ad imbocco 
coassiale. Il polo positivo andrà collega- 
to al contatto centrale, quello negativo 
al contatto periferico; 

— la presa SCART dei televisori a colori 
di recente fabbricazione richiede invece 
un connettore di tipo EURO a 20 con- 
tatti. In questo caso, dopo aver acqui- 
stato da un rivenditore di materiale tele- 
visivo una spina adatta, bisognerà colle- 
garne il contatto 20 al polo positivo del 
nostro cavo e il 18 o 17 al negativo; 
— in entrambi i casi, se l’immagine non 
appare, il primo tentativo da fare, natu- 
ralmente dopo aver controllato saldatu- 
re e collegamenti, è l’inversione dei po- 
li. 
Una precisazione, rivolta in particolare 
a chi non è proprio digiuno di queste 
cose. Quello che preleviamo all’ingres- 
so del modulatore è un segnale compo- 
sito PAL. I monitor adatti sono quindi 
quelli PAL, e non gli RGB. Il collega- 
mento con questi ultimi, che darebbe 
risultati ancora migliori, è reso comples- 
so dal fatto che al circuito video dello 
Spectrum non giungono, come di con- 
sueto, i tre segnali 


R = rosso 
G = verde 
B = blu 


ma due segnali di differenza, e precisa- 
mente 


U = blu-giallo 
V = rosso-giallo 


Questa situazione richiederebbe, per ot- 
tenere i tre segnali RGB, una complessa 
decodifica. Chissà, forse un giorno ce 
ne occuperemo... 

Utile per tutti è invece sapere che il tipo 
di collegamento da noi suggerito va be- 
ne sia nel caso di monitor a colori che 
in bianco e nero. 


Attenzione, ottantunisti! 


Collegarsi al modulatore può, strana- 
mente, essere di aiuto anche nel miglio- 
ramento della registrazione dei pro- 
grammi su cassetta. 

Questa modifica riguarda lo 7Х81, 
macchina che presenta purtroppo qual- 
che problema in questo campo. Il suo 
effetto è la creazione di un segnale acu: 
to, che precede l’inizio della trasmissio- 
ne dei dati, come avviene per lo Spec 
trum. 
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ASTEC 


fig. 2: collegamenti all'interno dello ZX81 per la modifica alla presa MIC 
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На. 3: schema elettrico dei circuiti ЕАК е MIC dello Spectrum 
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AMPLIFICATORE 


avuto dei problemi in fase di SAVE o 
LOAD possono provare ad usare la 
presa “sbagliata” per l’una o l’altra ope- 
razione; vale a dire: EAR per la fase di 
SAVE e/o MIC per quella di LOAD. 
Le due prese sono infatti elettricamente 
in comune per quanto riguarda il segna- 
le, come vedete in figura. Ciò che varia 
dall’una all’altra è solo l'impedenza, 
t molto alta per la presa MIC, piuttosto 
bassa per quella EAR. Vale perciò la 
pena di tentare... 


ALIMENTATORE 


E troppo debole quel BEEP? 

A proposito di presa EAR: ormai (quasi) 
tutti saranno a conoscenza del fatto che 
il BEEP, ossia l'emissione sonora dello 
Spectrum, non è presente solo a livello 
del piccolo altoparlante, ma anche sulle 
due prese MIC ed EAR. La presa EAR 
in particolare, data la bassa impedenza, 
è adattissima al prelievo del segnale so- 
noro per una sua amplificazione. 


fig. 4: amplificatore per il BEEP dello Spectrum: schema delle interconnessioni 


La durata di questo segnale è pari al 
tempo che normalmente trascorre, in 
religioso silenzio, fra il NEWLINE e l’ini- 
zio della trasmissione dei dati. 

Ecco cosa fare: 3 

— aprite la “carrozzeria” dello ZX81, 
togliendo le solite viti sul fondo; 

- dopo aver fatto scivolare іп avanti la 
parte superiore, con le solite precauzio- 
ni per evitare il distacco dei connettori 
di tastiera, vedrete sulla sinistra del cir- 
cuito la scatolina metallica del modula- 
tore; Ne EA QS aS: 

— questa volta i due contatti di ingresso 
"guardano" verso di voi. A sinistra tro- 
vate il positivo, a destra il negativo; 

— solite saldature ad un cavo schermato 
(calza con il negativo, conduttore cen- 
trale con il positivo) che questa volta, 
volendo, potete fare uscire dal conteni- 
tore attraverso la presa MIC, che d'ora 
in avanti non verrà piü usata, essendo 
il vecchio cavetto MIC sostituito da 
quello appena installato. 

Questo "passaggio" non danneggia co- 
munque minimamente la presa stessa, 
che potrà essere rimessa in funzione in 
qualsiasi momento; 

— all'estremità opposta del cavo colle- 
gherete una spina tipo jack da 3,5 mm. 
Al positivo farete corrispondere il con- 
tatto anteriore, al negativo quello poste- 
riore. 

Il vantaggio dell'esistenza di una nota 
iniziale nella registrazione di dati sta nel 
fatto che la regolazione automatica di 
volume del registratore (tutti i registra- 
tori portatili a cassette ne fanno uso) si 
. porta al giusto livello prima dell'inizio 
dei dati. Viene cosi eliminato il rischio 
di una cattiva registrazione, soprattutto 
dei primi byte, che sono i più importan- 
ti. 


Per un LOAD sicuro... 


Per rimanere in argomento, ma passan- 
do allo Spectrum, coloro che avessero 


Chi utilizza un monitor con ingresso au- 
dio puó semplicemente collegare la pre- 
sa EAR, con apposito cavo, all'ingresso 


NON 
UTILIZZATO 


fig. 5: amplificatore per il BEEP dello Spectrum: disposizione dei componenti 


e dei collegamenti 


+9V 


I PIN 3,4,5,10,11,12 
SONO COLLEGATI А 0V 


I 


Lic Дакс 


fig. 6: amplificatore per il BEEP dello Spectrum: schema elettrico 
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audio del monitor (attenzione alla pola- 
rità: il positivo della presa ë il contatto 
centrale in fondo, il negativo quello anu- 
lare). 

Anche coloro che dispongono di un tele- 
visore provvisto di presa SCART, che 
тадагі utilizzano già per la parte video, 
possono sfruttare l'amplificatore inter- 
no al televisore. Basta collegare il positi- 
vo proveniente dalla presa EAR al con- 
tatto 6 della presa, ed il negativo al 4 
о al 5. 

I non possessori di monitor o di televiso- 
re con presa apposita non si disperino: 
ecco un progettino molto semplice di 
amplificatore, sufficiente a spaccare i 
timpani dei vicini con esplosioni galatti- 
che e musichette ossessive. 

Nelle varie figure trovate gli schemi di 
collegamento, la disposizione dei com- 
ponenti ed il circuito stampato. 

Si tratta di un amplificatore che non usa 
batterie, ma trae l'energia che gli serve 
direttamente  dall'alimentatore dello 
Spectrum. 

Altro particolare da notare e il fatto che 
viene finalmente utilizzato un vero alto- 
parlante, e non un *buzzer" come quel- 
lo incorporato nel computer. 

Come vedete, la spina dell'alimentatore 
va inserita in una presa sull'amplificato- 
re, da cui parte un altro cavo con spina 
che va ad alimentare lo Spectrum. Sem- 
pre sulla piastra dell'amplificatore tro- 
viamo una presa jack per il collegamen- 


REM:HW 


to dello Spectrum ad EAR. 

I componenti da saldare sul circuito 
stampato sono nientepopodimeno che 
..tre: il circuito integrato di amplifica- 
zione, che ë un LM380, e due conden- 
satori. 

Dopo aver preparato il circuito stampa- 
to nel modo che preferite (ma se non 
volete fare uso di un circuito stampato 
potete sempre ricorrere ad un montag- 
gio a filo, del tipo di quelli presentati 
per la nostra interfaccia) saldate i com- 
ponenti seguendo la figura. 

Per primo é consigliabile saldare in posi- 
zione lo zoccolo del circuito integrato (è 
meglio utilizzarlo, a scanso di brutte sor- 
prese). Quindi sarà la volta dei due con- 
densatori. Fate attenzione all’orienta- 
mento dello zoccolo (la scanalatura va 
nella direzione opposta rispetto al gros- 
so condensatore elettrolitico C1) e di 
СІ (polo positivo, scanalato, verso de- 
stra, orientando la piastra in modo da 
avere СІ in basso). 

Saldate ora i vari connettori, ricordan- 
dovi di infilare il cavo nei loro coperchi 
prima di saldarlo alle spine. 
Attenzione, MOLTA ATTENZIONE al- 
la polarità della spina di alimentazione 
che va allo Spectrum, pena gravi danni 
al computer. Come vedete in figura, il 
filo che parte dal foro più in alto, sul 
lato destro della piastra, dovrà essere 
collegato al contatto esterno, sia per la 
presa che per la spina. Viceversa, il filo 


fig.7: amplificatore per il BEEP dello Spectrum: circuito stampato, lato rame 
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Miscellanea 


proveniente dal foro in centro, sempre 
sul lato destro della piastra, andrà colle- 
gato ai contatti centrali di presa e spina. 
Sempre in figura vedete anche il modo 
corretto di collegare la presa jack, da 
un lato all’altoparlante, dall’altro al co- 
mando del volume. Quest'ultimo avrà 
uno dei contatti esterni collegato al foro 
superiore del lato sinistro del circuito, 
mentre l’altro contatto esterno e quello 
centrale saranno collegati insieme al fo- 
ro subito sotto. I due fori successivi sono 
quelli dell’altoparlante. 

Ricontrollate tutti i collegamenti e quin- 
di inserite l’integrato rispettando, 
l'orientamento della scanalatura, pre- 
sente sia su di esso che sullo zoccolo. 
Dopo un'ultima occhiata di controllo 
collegate tutto e collaudate l'amplifica- 
tore con un bel 


BEEP 9,0 


abbastanza prolungato da consentirvi di 
regolare il volume (à consigliabile pro- 
curarsi una manopola da inserire sull'al- 
bero del comando, come pure fissare il 
comando a una base solida di legno o 
cartone). Cosa ne dite, eh? 

I componenti sono: 


IC 1 LM380 

C1 condensatore da 0,1 microfarad ce- 
ramico 

C2 condensatore elettrolitico da 470 
microfarad, 16 volt lavoro 

МЕ potenziometro logaritmico da 22K 
ohm 

SK1 presa jack da 3,5 mm 

SK2 presa coassiale di alimentazione da 
2,1 mm 

PL1 spina coassiale di alimentazione da 
2,1 mm 


Oltre a questo materiale, ë necessario 
un saldatore, dello stagno, filo sottile 
per i collegamenti, cavo bipolare per il 
collegamento di alimentazione e una 
manopola per il volume. 
E consigliabile infine portare con sé l'ali- 
mentatore, per utilizzarne la spina co- 
me campione nell'acquisto di SK1 ed 
SK2. 


A tutto reset 


Per concludere, vediamo come dare al- 
lo Spectrum qualcosa del suo fratello 
Plus: un tasto di reset. 

Tutto ció che vi serve ë un pulsante, 
che collegherete fra il contatto OV ed il 
contatto RESET del connettore poste- 
riore, che sono rispettivamente il vente- 
simo ed il sesto partendo da destra, sul- 
la faccia inferiore del connettore. 

Per non bloccare il connettore posterio- 
re le saldature vanno fatte non proprio 


sui contatti, та ип ро” рій indietro, 
аргепдо il contenitore del computer. 
Se l'idea di saldare qualcosa allo Spec- 
trum proprio non vi va, potete sempre 
ricorrere a dei contatti a “clip” o a dei 
piccoli “coccodrilli”: l'essenziale è che 
il contatto sia buono (se non lo è, niente 
di grave: tutto quello che potrà succe- 
dere è che quando premerete il pulsan- 
te lo Spectrum non eseguirà il reset). 
Quello che avviene alla pressione del 
pulsante, come potete vedere dalla fi- 
gura, alla pressioen del pulsante è la 
messa a massa del piedino RESET dello 
Z80. Questo piedino, normalmente 
mantenuto a livello alto dalla resistenza 
R31, portato a livello basso forza una 
reinizializzazione del computer, proprio 
come avviene alla sua accensione. 
Come è noto, l’utilità di questo coman- 
do sta nel non dover staccare la spina 
di alimentazione per uscire da una situa- 
zione di “crash” , od eliminare un gioco 
che non prevede la possibilità di 
BREAK. In questo modo si assicura an- 
che una vita maggiore alla presa 9V 
DC. : 

Per questa volta ë tutto; arrivederci! 


GBC e Sinclair camminano 
ancora insieme 


La ОВС Italiana ha rinnovato Гассогдо 
già in vigore con la Sinclair per la distri- 
buzione in esclusiva di Spectrum e QL. 
Il programma di collaborazione tra le 
due società prevede anche l’apertura in 
Italia di un ufficio di rappresentanza 
Sinclair, con compiti di supervisione e 
promozione del software, soprattutto 
educativo. La notizia è certo da acco- 
gliere con soddisfazione: ci chiediamo 
però quale sarà il ruolo, nell’ambito del- 
l'accordo, della già da tempo annuncia- 


ta Sinclair Italia, che non è ancora fun-. 


zionante a pieno ritmo nonostante le 
prime promettenti notizie ormai risalen- 
ti a sei mesi fa. Anche degli annunciati 
progetti di italianizzazione del QL si sa 
ben poco; nel frattempo il mercato per 
questo computer è quasi semiclandesti- 
no, generando una diffidenza, sia pure 
ingiustificata, che corre il rischio di com- 
promettere l’auspicabile lancio pubblici- 


R31 
22K 


RESET 


INTERRUTTORE 


ом 


fig.8: Schema di collegamento per il tasto di reset 


tario in grande stile, che dovrà per forza 
prima o poi verificarsi, se non altro per 
coerenza con le promesse fatte finora. 
Staremo a vedere. 


Computer, automobili, 
semiconduttori,...? 


‘Dopo la costituzione della Sinclair Re- 


search (ZX80/81/Spectrum/QL/TV a 
schermo piatto) e della Sinclair Vehicles 
(costruita intorno alla C5, l’“auto” elet- 
trica che da sempre rappresenta uno 
dei grandi sogni del dinamico Sir Clive 
e adesso affacciatasi sul mercato britan- 
nico) il “nostro” ha annunciato la prossi- 
ma nascita di una nuova società, desti- 
nata ad occuparsi di sviluppo e produ- 
zione di semiconduttori basati sulla tec- 
nologia “wafer scale integration” o WSI. 
Si tratta, in parole povere, di circuiti 
dalle notevoli prestazioni, che permet- 
tono di disporre di memorie di massa 


di grande capacità — dai 512K in su — 
con tempi di accesso alle informazioni 
ridottissime a un prezzo competitivo. Fi- 
no a questo momento gli studi sulla WSI 


sono stati condotti al Metalab, Гауапга- 
tissimo centro di ricerca della Sinclair, 
con una spesa complessiva di circa un 
milione di sterline. 

Per inciso, la tecnologia WSI è quella 
che dovrebbe permettere a Sir Clive di 
produrre un’espansione di memoria di 
512K per il QL, di dimensioni ridottissi- 
me (rispetto alle grandi schede usate 
per prodotti analoghi già disponibili in 
Inghilterra e, per chi voglia andarli a 
cercare, in Italia) a pezzo concorrenzia- 
le. Per ora pare che il problema princi- 
pale da superare sia quello dell’alta per- 
centuale di circuiti difettosi (quindi da 
scartare) che si ottiene con le tecniche 
attuali di produzione. Riuscirà Sinclair 
là dove diverse aziende americane non 
hanno ottenuto risultati esaltanti? Po- 
tremmo saperlo anche tra pochi mesi: 
in fondo, siamo già abituati da tempo 
alle sue sorprese, e non ci stupiremmo 
di constatarne una ennesima... 
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L'Assemblv assieme 


di Marcello Spero 
Quarta parte 


Ovverossia come eseguire ope- 
razioni logiche іп linguaggio 
macchina. 


М“ sole torrido dell'estate ессосі а 
parla e ancora una volta di lin- 
guaggio macchina. Chi ha seguito que- 
sto piccolo corso, puntata dopo punta- 
ta, dovrebbe ormai essere in grado di 
creare semplici programmi in Assem- 
blv, nonchë di interpretare quelli scritti 
da altri. 

Ci sono ancora, comunque, alcuni 
aspetti importanti del linguaggio mac- 
china che vanno esaminati, prima di 
poter dire concluso un corso, anche se 
piccolo ed elementare come il nostro. 
L'argomento piü importante lo tocche- 
remo proprio questa volta; si tratta del- 
le operazioni logiche. Verranno quindi 
Гиво delle subroutine e della catasta, le 
operazioni di scorrimento e gli sposta- 
menti di blocchi. Un accenno all'uso dei 
registri indice concluderà questa “pri- 
ma sessione” sul linguaggio macchina 
di ZX81 e Spectrum. 

Le nozioni e le tecniche piü complesse 
formeranno invece l’oggetto di una 
prossima serie, impostata ad argomenti 
separati, invece che a corso. Per ora 
cercheremo piuttosto di mettere a 
buon uso quanto abbiamo visto, crean- 
do routine utili e spettacolari. 

A questo proposito, al termine di que- 
sta puntata troverete una sorpresa... 


Stavamo dicendo... 

La scorsa volta ci eravamo lasciati con 
la promessa di una routine che facesse 
uso del nuovo sistema di esecuzione. 
Questo sistema consiste, come abbia- 
mo visto, nell’uso particolare dell’istru- 


zione BASIC 

DEF ЕМ 

Creando una linea tipo 

10 DEF ЕМ а(х,у,2) = USR... 


al momento del suo richiamo da parte 
di una 


(o PRINT, LET r=, o quello che volete) 


avremo l’esecuzione della routine indi- 
cata dalla USR, esattamente come se 
avessimo usato 


RANDOMIZE USR... 


ma in più potremo accedere, dall’inter- 
no della routine stessa, ai valori dei pa- 
rametri della funzione medesima; nel 
nostro caso i valori di i,j,k. 

Ciò è possibile perché i valori dei para- 
metri vengono materialmente inseriti 


4 
RANDOMIZE | 


S 


all'interno della DEF FN, in posizioni 
ben definite, e la variabile di sistema 
DEFADD ne indica la posizione. 


Per essere piü precisi, la situazione ë 
quella rappresentata in figura 1. E 
chiaro quindi che per recuperare nu- 
meri interi e minori di 256, che sono la 
stragrande maggioranza dei dati utiliz- 
zati in routine in l/m, occorrerà avan- 
zare, dalla posizione indicata da DE- 
FADD, una prima volta di 4, e quindi 
di 8 per ogni successivo dato da recu- 
perare. 

Il metodo utilizzato normalmente per 
questa operazione è 
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1d Һ1, (DEFADD) 


ld de, 4 

add hl, de 

ld «registro, (hl) (valore del primo 
dato) 

add hl, de 

add hl, de 


ld «registro, (hl) (valore del secon- 
do 

dato: un punto ogni riga, in verticale, 
quindi ingombro di tre righe) 


E evidente una volta di piü in questa 
routine l'utilità di disporre di una cop- 
pia come hl, che puó svolgere le funzio- 
ni di registro indice e di accumulatore 
a 16 bit. 

Il metodo usato ë quello dell'indirizza- 
mento doppiamente indiretto. Carichia- 
mo infatti in hl il contenuto dell'indiriz- 
zo DEFADD (23563). Quindi lo incre- 
mentiamo a passi di 4 (il valore di de) 
e carichiamo in un registro il contenuto 
dell'indirizzo da esso indicato. In prati- 
ca abbiamo ottenuto qualcosa che era 
contenuto in qualcosa che era contenu- 
ta in DEFADD. Un po' contorto, non vi 
sembra? 

Ed ecco un'applicazione, piuttosto 
semplice. Si tratta di una routine per lo 
Spectrum che, dati riga, colonna e va- 
lore-attributi, modifica di conseguenza 
il carattere indicato. 


La routine, 
ld hl, (DEFADD) 42 11 92 
ld de,4 ПА qe 
add hln de 25 
ld b, (hl) 70 
add hl, de 25 
add hl, de 25 
ld с, (hl) 78 
add hl, de 25 
add hl, de 25 
ld a, (hl) 126 
ld hl, 22528 33707 88 
аа, 0 2240 
ld e, с 89 
inc b 4 
CICLOadd hl, de 25 
ld e, 32 30 32 
djinz CICLO 16 251 
ld (hl), a 119 
ret 201 


si limita sostanzialmente al calcolo del- 
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l'indirizzo desiderato, partendo dai va- 
lori di riga e colonna, e quindi all'intro- 
duzione del valore ricevuto in questo 
indirizzo. 

Il suo funzionamento è previsto in unio- 
ne a una linea 


DEF ЕМ а(х, y, z) = USR «indiriz- 
20> 


in cui il primo parametro rappresenta 
la riga, il secondo la colonna ed il terzo 
il valore-attributi. 

Facendo eseguire la routine con RAN- 
DOMIZE ЕМ a(R, С, А) 


dove r, с ед а вопо costanti о variabili 
che rappresentano i vari dati nell'ordi- 
ne descritto, al termine del primo bloc- 
co di operazioni avremo: 


in b il numero di riga 
in c il numero di colonna 
in a il valore-attributi 


La meccanica per calcolare l’indirizzo 

del carattere desiderato, a partire dal 

numero di riga e di colonna, si riduce 

sostanzialmente a sommare all’indiriz- 

zo di base dell’area attributi il valore di 

ps e quindi aumentare il risultato 
i 


32'R 


dove R è il numero di riga. 
Dovendo eseguire delle somme a 16 


bit (l'indirizzo di base è 22528, eviden- 


temente troppo grande per un registro 
solo), la scelta obbligata ë hl. L'altro 
addendo potrà essere bc o de. 

A] momento del recupero del numero 
di colonna la scelta & obbligata; l'unico 
registro libero ë infatti c. D'altronde 
questo non ë un problema, visto che il 
dato corrispondente può variare fra 0 
e 31, ed é quindi perfettamente a suo 
agio in un unico registro. 

Per sommare questo valore ad hl, inve- 
ce, occorre utilizzare per forza una 
coppia, visto che l'operazione 


add hl, «registro 
non esiste. Si tratta ora di scegliere: 


liberare b e usare bc, o trasferire il da- 
to da c ad e e usare de? 


La scelta cade sulla seconda ipotesi, vi- 
sto che, terminata la fase di caricamen- 
to dati, il valore contenuto in de non ci 
serve piü. D'altra parte ci fa comodo 
avere il numero di riga in b, poiché è 
proprio con b che funziona l'operazio- 
ne 


DJNZ 


molto adatta ad eseguire il ciclo di som- 
me ripetute; necessario ad eseguire 
l'operazione 


hl = hl + 32*R 


Ecco quindi che il valore contenuto in c 
viene ricomposto in de con le due ope- 
razioni 


ld d, 0 
ld e, c 


A questo punto un modo di procedere 
potrebbe essere 


add hl, de 


e quindi 


|4 de, 32 
CICLO add h2, de 
djnz CICLO 


per aggiungere il valore di riga. 
Questo sistema ci pone però lo stesso 
problema incontrato nella routine per 
lo ZX 81, vista la scorsa volta. Nel caso 
di b, cioè numero di riga, uguale a 0, il 
ciclo si ripete 256 volte. 

In quella routine si era ovviato all’in- 
conveniente con 


ld a, b 
ср 0 
л. 


che in caso di b=0 saltava completa- 
mente il ciclo. 

Qui la soluzione scelta ë, se si vuole, un 
tantino piü “raffinata”: 


CICLO inc b 
add hl, de 
ld e, 32 
djnz CICLO 


Viene cioé inclusa nel ciclo anche la 
prima somma, quella in cui de contiene 
il numero di colonna. Per questo, b de- 
ve essere incrementata di 1. Non po- 
tendo il valore di b essere, per ovvi mo- 
tivi, inferiore a O, il suo valore minimo 
dopo l'incremento sarà 1. Con un valo- 
re di contatore uguale a 1 il ciclo verrà 
percorso una sola volta. L'unica som- 
ma che avverrà sarà perció quella del 
numero di colonna; a de verrà assegna- 
to il valore 32, che però non sarà utiliz- 
zato. 

Unico svantaggio di questo sistema è il 


fatto che ad ogni esecuzione del ciclo 
viene ripetuta l'operazione 


ld e,32 


(notate come sia sufficiente caricare il 
valore nel registro “basso” della cop- 
pia, visto che il valore 32 è minore di 
256 e il registro d contiene già 0) inuti- 
le dopo la prima volta. Si tratta comun- 
que di uno svantaggio minimo in termi- 
ni di tempo di esecuzione, mentre il 
vantaggio per quanto riguarda la chia- 
rezza e compattezza della routine è no- 
tevole. 

Infine avviene il caricamento del valore 
di a nell’indirizzo indicato da hl, ese- 
guendo così la modifica agli attributi 
del carattere voluto. 

Dopo aver caricato la routine, provate- 
la con 


10 DEF ЕМ а(х, y, z) = USR <indiriz- 
20> 


RANDOMIZE ЕМ а(10, 10, 248) 


che farà lampeggiare il carattere 10, 
10 fra il bianco ad alta luminosità e il 
nero. 

Come abbiamo già avuto modo di os- 
servare la scorsa volta, il vantaggio del- 
l’uso di FN e DEF FN con il linguaggio 
macchina non rende semplicemente 
possibile il trasferimento di un numero 
qualsiasi di parametri alla routine; è 
persino possibile trasferire il valore di 
variabili, il risultato di operazioni alge- 
briche o logiche e di altre funzioni. Im- 
postando, ad esempio, l’esecuzione di 
una routine con 


DEF ЕМ а(х, y, 2) = USR... 
le forme 


RANDOMIZE ЕМ а(1, 2, 3) 
RANDOMIZE FN aff, h, 5*3) E 
RANDOMIZE FN а((9=6), SQR 4, 2 4) 
RANDOMIZE FN а(ЕМ b(d, 374), (2 
AND (r» 4 OR s=9)), VAL INKEY$) 


sono tutte possibili. L'unico vincolo da 
tener presente 6 la necessità che i risul- 
tati dei calcoli siano numeri interi. 


Passiamo ad altro 

Riprendiamo ora ad estendere le no- 
stre conoscenze in fatto di linguaggio 
macchina, entrando in un campo che 
finora abbiamo tralasciato: le operazio- 
ni logiche. 


Noi tutti sappiamo che in BASIC ë pos- i 


sibile effettuare operazioni logiche. Si 
tratta di confronti, che producono un 
certo risultato dipendente dal tipo di 
operatore usato (gli operatori logici in 
BASIC sono; <> <=,>=, «Uu 
AND, OR, NOT). 

Gli operandi, cioë i valori oggetto del 
confronto, non vengono modificati. 

Ad esempio: 


se a=2 e b=5 
(a>b)=0 


se a=0 e b=6 


(a AND b)= a cioè 0 
(a OR b)=1 


per lo Spectrum. Più in generale, 
se a=0 e b=4 


(a AND b)=FALSO 
(b AND a)=FALSO 
(a OR b)=VERO 
(b OR a)=VERO 


In linguaggio macchina le cose vanno 
diversamente. Per effettuare dei con- 
fronti “non distruttivi” nei confronti de- 
gli operandi bisogna ricorrere all’ope- 


` razione 


cpN 
о 


cp «registro > 


ппппппп 


На. 2: reticolo corrispondente alla 
lettera À 

fig. 3: reticolo corrispondente alla 
lettera S 

fig. 4: reticolo risultante dopo 
l'operazione logica or 


che puó sostituire validamente gli ope- 
ratori > <, > m. <=, < >-. 
Le combinazioni tipo 


a>b AND c<d 

si realizzano con salti condizionati: 
ld a, N 

cp b 

jr с, FALSO 


da,c 

cp d 

jr nc, FALSO 
jr VERO 


Infatti, se a « b la sottrazione di b da a 
provocherà un prestito, e quindi “alze- 
rà" il flag di carry. Viceversa, se c (che 
abbiamo trasferito in a per rendere 
possibile il confronto) > d, il flag di car- 
ry sarà a zero, non essendoci prestito 
nella sottrazione с-а. 

In questo modo tutti i valori oggetto dei 
confronti escono “sani e salvi” dall’ope- 
razione. 

Esistono poi le “operazioni logiche”: 


and N 

and <registro> 
or N 

or <registro > 
xor N 

xor <registro> 


Si tratta di operazioni che agiscono non 
sul valore degli operandi nel suo com- 
plesso, ma sui singoli bit. Il risultato di 


00000000 
| | | | | [alfa] 
= 080000000 


оо 
Пп 
пп 
СЗЯ 
mü 
ag 
mu 


| даи | аа 
0000000 


ООООО fig. 6 


fig. 5: reticolo risultante dopo 
l'operazione logica and 
fig. 6: reticolo risultante dopo 
l'operazione logica xor 
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queste operazioni, inoltre, viene posto 
in a, causando la perdita di uno dei due 

operandi. 

Per comprenderne il funzionamento 

esaminiamo innanzitutto le “tabelle di 

EE degli operatori logici corrispon- 
enti. 


a b a and b 
0 0 0 
0 1 0 
T 0 0 

1 1 1 
a b aorb 
0 0 0 
0 1 1 

1 0 | 

1 1 1 
а b a xor b 
0 0 0 
0 Il 1 

1 0 1 

1 1 0 


Gli operatori апа (in italiano “prodotto 
logico” o “congiunzione”) ed or (in ita- 
liano “somma logica” o “disgiunzione 
inclusiva”) li conosciamo bene, in quan- 
to presenti nel BASIC. 

Qui, peró, a e b non sono numeri, ma 
singoli bit. 

In altre parole, se in BASIC 


10 AND 12 = 10 
per lo Spectrum, e piü in generale 
10 AND 12 = VERO 


in linguaggio macchina i due numeri 
vanno considerati nella loro forma bi- 
naria: 


10=1010 
12=1100 


L'operazione logica avverrà su ciascun 


bit: 


1010 
1100 


1000 
e perció 
10 and 12 = 8 


In sostanza, il risultato avrà un bit a 
uno nelle posizioni in cui entrambi gli 
operandi avevano un bit a uno. 

E ancora: 


100R12=1 
in BASIC, ma 
10-ог 12 = 15 


in linguaggio macchina. Infatti: 
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10 - 1010 
12 - 1100 
1110 = 14 


Dove almeno uno degli operandi aveva 
un bit a uno, nel risultato ci sarà un 
uno. 


ХОК, ГОК esclusivo 


Vediamo adesso l’ultimo operatore, 
meno familiare. La sua tabella di veri- 
tà, apparentemente complicata, può 
essere riassunta nella definizione: 


diverso = VERO 
uguale = FALSO 


Infatti, sia la combinazione 

а=1 b=1 

che 

a=0 b=0 

danno come risultato zero, o FALSO 


che dir si voglia. Vediamo ora un esem- 
pio in linguaggio macchina: 


12 хок = 9 
infatti: 
Ik == 1100 
Z= 0101 
TOT 9 


Dove i bit dei due operandi erano di- 
versi troviamo un uno, dove erano 
uguali uno zero. 

Ma... e in pratica? 

Ci arriviamo, ci arriviamo... 

Vedrete che non mancherete di stupir- 
vi per la quantità di cose che si posso- 
no fare con queste operazioni. 
Vediamo qualche caso limite: 


and 0 


darà sempre zero, qualsiasi valore sia 
contenuto in a. Si tratta di un sistema 
per azzerare l'accumulatore, che peró 
non é necessariamente da preferire al 
piu prosaico 


ld а,0 


poiché occupa anch'esso due byte. 
Viceversa, 


and 255 


lascia immutato il contenuto di a. Infat- 
ti, dove in a c'era un uno, 


Land 1-1 
mentre dove c'era uno zero 
O and 1 = 0 


Per or le cose si ribaltano: 


or 255 


darà invariabilmente 255 come risulta- 
to. Viceversa, 


or 0 


lascia immutato il contenuto di a. 
Le operazioni “simmetriche”, vale a di- 
re 


anda 
e 
ora 


lasciano immutato il contenuto dell'ac- 
cumulatore. 

Le cose non stanno assolutamente cosi 
per xor. 


хога 


infatti, дага sempre е solo zero, роїсһё 
i bit nella stessa posizione saranno tutti 
uguali. Si tratta quindi di un modo rapi- 
do e breve (occupa un solo bvte in me- 
moria) per azzerare l'accumulatore. 
Interessanti sono anche i due casi 


xor 0 


che lascia immutato il contenuto di a, 
ed 


xor 255 


che esegue il complemento a due dei 
bit che compongono il valore. 
Quest'ultimo caso merita di essere 
svolto per esteso; prendiamo, ad esem- 
pio, 


a=38 
38: = 00100110 
255 = 11111111 


11011001 = 217 
che corrisponde а 


255-38 


Infatti il complemento а due, in senso 
binario, di un numero equivale al suo 
са а 255 іп senso decima- 
е. 

In generale, бі usa l’operazione or 
quando si ha la necessità di portare a 
1 il valore di uno o più bit all’interno di 
a. 
I bit in corrispondenza degli zeri saran- 
no rispettati; quelli in corrispondenza 
degli uno passeranno a 1. 

Viceversa, si usa and per portare a ze- 
ro uno o più bit di a. In questo caso 
saranno i bit in corrispondenza degli 
uno ad essere rispettati, mentre quelli 
in corrispondenza degli zeri passeranno 
inesorabilmente a zero. 

Questi due operatori possono servire 


anche per una specie di lavoro di “col- 
lage”. Supponiamo di voler comporre 
in a un numero che abbia i primi quat- 
tro bit di b e i secondi quattro di c. Le 
operazioni di fare sono: 


ld a,15 
and b 
ld b,a 
ld a,240 
апа с 
ог b 


che equivalgono а: 


ld a,b 
and 15 
ld Б,а 

ld a,c 
and 240 
or b 


Vediamo un po' il meccanismo. 
Per capirci meglio, supponiamo che 


b — 10110101 (181) 
c = 01101011 (107) 


Noi vogliamo che il valore finale in a 
sia 


01100101 (101) 


ossia un numero composto dai quattro 
bit di ordine superiore di c e dai quat- 
tro di ordine inferiore di b. 

La prima operazione ë, praticamente, 


b and 15 

cioé 

10110101 (181) 
00001111 (15) 
00000101 


Quindi si passa alla preparazione di c, 
che avviene con 


c and 240 
cioè: 
01101011 (107) 


11110000 (240) 
01100000 


A questo punto non resta che unire la 
due metà con una operazione di or: 


00000101 
01100000 


01100101 (101) 
Lo stesso risultato si può ottenere con: 


ld а,240 
or b 

ld b,a 
ld а,15 
or c 
апа b 


che equivale а 


ld a,b 
or 240 
ld b,a 
ld a,c 
or 15 
and b 


Infatti: 


10110101 (181) or 
11110000 (240) 


11110101 


01101011 (107) or 
00001111 (15) 
01101111 


ей infine 


11110101 апа 
01101111 


01100101 (101) 


Meno intuitivo è l’uso di xor. 

Questo operatore può essere utilizzato 
per verificare quali bit di due registri, o 
di un registro e un dato, sono uguali. 
Come risultato otterremo un byte in cui 
i bit a zero significheranno “qui i due 
operandi avevano un bit uguale”, men- 
tre quelli a uno “qui i due operandi 
avevano un bit diverso Гипо dall’al- 
Кол 

Vediamo un esempio. Sia 


a=10110001 (177) 
b=00101001 ( 41) 


l'operazione 
xor b 
darà: 


10110001 
00101001 


10011000 (152) 


Un altro impiego utile di questa opera- 
zione é la commutazione di uno o piü 
bit all'interno di un registro, anche sen- 
za sapere qual il loro valore. Ponia- 
mo di voler commutare il bit 3 di a. 
Basterà far eseguire 


xor 8 
infatti la forma binaria di 8 ë 
00001000 


Abbiamo detto che con xor i bit a zero 


non provocano alcuna modifica, men- 
tre quelli a uno complementano a due 
(cioè invertono) il bit corrisponde. Per- 
ciò il bit 3 di a sarà invertito, mentre gli 
altri saranno rispettati. Un’applicazione 
dell'operat'ore xor, presente in tutti i 
computer, riguarda la ben nota “regola 
del segno". 

Tutti noi sappiamo che nel moltiplicare 
о dividere due numeri occorre tener 
conto, per determinare il segno del ri- 
sultato, della regoletta: 


хо + cr 
+ XQ: = = 
хо =*— 
= хо == 


Se, соте di fatto avviene nella maggior 
parte dei computer, il segno di un nu- 
mero viene rappresentato con lo stato 
di un bit, che si stabilisce 


+ 


0 
1 


per ottenere il segno del risultato di 
una molteplicazione o divisione basterà 
eseguire un xor dei segni degli operan- 
di. Infatti 


0 xor 0 = 0 
1 хот 0'= 1 
0хог1-і1 
lxor1=0 


Proviamo con la grafica 

С'г comunque un modo più diretto ed 
interessante per comprendere queste 
operazioni logiche, ed è osservando vi- 
sivamente il loro effetto sui singoli bit. 
Con lo Spectrum questo è possibile. 
L’immagine video è infatti il risultato 
della visualizzazione di ben 


32'24*8 = 6144 byte 


in cui a ciascun bit corrisponde un pun- 
tino nero (o meglio, del colore INK), se 
questo è a 1, bianco (cioè del colore 
PAPER), se è a 0. 

Provando le operazioni logiche sui byte 
dell’area video, saremo quindi in grado 
di “vedere” il risultato dei nostri esperi- 
menti. 

Per comodotà manipoleremo gli otto 
byte che formano il primo carattere, 
quello in alto a sinistra per intenderci. . 
Ciò che faremo sarà stampare un ca- 
rattere qualsiasi in questa posizione, e 
quindi “sovrapporgli” un altro caratte- 
re, usando a turno i tre operatori logici. 
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In parole più esatte, eseguiremo 
un'operazione di or, and o xor Ка cia- 
scuno degli otto byte che compongono 
il carattere ed il corrispondente byte di 
un altro carattere. 

Le operazioni da fare sono: 


— stampare, con una PRINT in BASIC, 
il carattere desiderato in posizione 0,0; 
— prelevare, uno a uno, i byte di un 
altro carattere dal set di caratteri con- 
tenuto nella ROM dello Spectrum; 

— eseguire, su ciascuna coppia corri- 
spondente di byte, l'operazione logica 
desiderata; 

— collocare ciascun risultato nell'oppor- 
tuno indirizzo dell'area video, in modo 
da ricomporre con i nuovi byte modifi- 
cati un carattere nella stessa posizione 
di quello iniziale. 


Il primo punto ë presto eseguito: 
CES: PRINT 5А" 


Per i punti successivi dobbiamo invece 
costruirci un’apposita routine in lin- 
guaggio macchina. 

Le informazioni che ci servono sono: 


— posizione del primo byte del primo 
carattere dell’area video: 

indirizzo 16384 

— distanza nell’area video fra due byte 
successivi di uno stesso carattere: 

256 byte 

— posizione, all’interno della ROM, del 
primo byte del primo carattere c’è lo 
spazio) del set: 

indirizzo 15616 

— distanza del primo byte di ciascun 
carattere dal primo byte del carattere 
precedente: 

8 byte 


Decidiamo di utilizzare, come carattere 
da “sovrapporre”, la S. Il suo CODE è 
83, che sottratto a quello dello spazio, 
32, ci dà una distanza dal primo carat- 
tere di 


83-32=51 caratteri 


Moltiplicando questa distanza per 8 (il 
numero di byte fra l’iniziale di un carat- 
tere e l’iniziale del successivo) ottenia- 
mo 


51'8=408 byte 


L’indirizzo del primo byte della lettera 
S sarà perciò 


15616 + 408 = 16024 


Ora possiamo scrivere la nostra routi- 
ne: 


14 hl,16384 33 0 64 

ld de, 16024 17 152 +62 

ld, b,8 67,8 
LOOP ld a,(de) 26 

or (hl) 182 

ld (hl),a 119 
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inc h 36 
inc de 19 
djnz LOOP 16249 
ret 201 
Il suo funzionamento è molto 
semplice: 
ld hl,16384 
14 de,16024 
ld b,8 


— in hl l'indirizzo del primo byte 
dell'area video, in due quello del primo 
byte del carattere S, all'interno del set, 
in b 8 per controllare il ciclo (sono 
infatti 8 i byte che compongono un 
carattere). 


ld a,(de) 
or (hl) 
ld (hl),a 


— ciascun byte componente la S viene 
recuperato e caricato in a, e quindi 
avviene l'operazione logica (in questo 
caso or) con il byte corrispondente 
nel'area video. A questo proposito 
notate come поп sia necessaria 
l'operazione preliminare 


ld c,(hl) 
e quindi 
Or c 


ma sia possibile, come abbiamo già 
visto altre volte, usare (hl come se 
fosse un registro. Altrettanto NON si 
potrebbe fare con (bc) o (de). 

inc h 

inc de 

djnz 


— l'indirizzo nell'area video indicato da 
hl, viene aumentato di 256 con 
l''ncremento del byte piü significativo 
della coppia. L'indirizzo all'interno del 
set viene invece aumentato solo di uno. 
Non é possibile l'incremento unitario 
con 


inc e 


poiché il valore contenuto in questa 
coppia potrebbe essere 


d-X e-255 

ed in tal caso l'operazione 
inc e 

produrrebbe il risultato 
d-X e-0 


non superiore di uno, ma inferiore di 
255 al precedente. Con 


inc de 


si ha invece 


d=X+1 е-0 


Sostituendo al byte 1+9, dove I è 
l'indirizzo del primo byte della ruotine, 
i valori 


166 per and 
174 per xor 
182 per or 


potrete sperimentare i risultati delle 
varie combinazioni. 

Le figure 2, 3, 4, 5 e 6 illustrano, 
rispettivamente: 


— la disposizione dei bit per il carattere 


— la disposizione dei bit nel carattere S; 
- il risultato dell’operazione or; 

— il risultato dell’operazione and; 

— il risultato dell’operazione xor. 


In questo modo potrete, рій 
agevolmente che non sullo schermo 
televisivo, confrontare riga per riga 
(cioè byte per byte) operandi e 
risultati. Per quanto riguarda 
l'operazione xor c'é da notare che si 
tratta della stessa che viene effettuata 
quando si stampa sullo schermo in 
modo 


OVER 1 


A riprova di questo, eseguendola per 
due volte consecutive riappare il 
carattere originario, cioè la A. 


E per finire... 

Basta con gli esempi! A partire da que- 
sta puntata iniziamo la presentazione 
di routine di una certa complessità ed 
utilità. 

Prese separatamente potranno essere 
inserite dove vi serviranno; noi, comun- 
que, le utilizzeremo per “costruire” un 
grandioso “arcade”, che nulla avrà da 
invidiare a un prodotto commerciale. 
Non essendo possibile portare avanti 
un progetto del genere parallelamente 
per Spectrum e 2Х81, si è imposta una 
scelta. La ben più ampia diffusione, ol- 
tre che le maggiori possibilità grafiche, 
hanno fatto pendere la bilancia a favo- 
re dello Spectrum; gli ottantunisti, co- 
munque, non saranno certo abbando- 
nati: anche per loro ci sarà un “game”, 
pur se necessariamente meno impe- 
gnativo. Torniamo adesso al nostro 
progetto. 

Le routine relative alla struttura base 
del gioco compariranno in queste ulti- 
me puntate del corso; gli “accessori” e 
le raffinatezze le vedremo invece nelle 
varie puntate monografiche che segui- 
ranno. 

Per quanto riguarda il blocco che vi 
viene presentato questa volta, c'è da 
dire che molte cose al suo interno non 
sono ancora state spiegate. 

Si tratta dell’uso dello stack, delle su- 
broutine e del registro indice ix, nonché 
lo scorrimento di registri. Le prossime 
puntate chiariranno questi punti, che è 


stato necessario “anticipare” in questa 
routine per darvi qualcosa di completo 
e funzionante già così com'è. 

Si tratta nientedimeno che di una routi- 
ne per produrre il movimento di carat- 
teri grafici in alta risoluzione. Non, ci- 
oè, di un carattere, ma di un pixel per 
volta. 

È strutturata per poter essere facilmen- 
te utilizzata dal BASIC, con il sistema 


DEF FN 


appena visto. 

Novità: vista l’estensione del listato, 
trovate riprodotto l’output dell'Assem- 
bler, per evitare il rischio di errori. 
Questo ha anche il vantaggio di favori- 
re una certa familiarizzazione con gli 
Assembler. Per questo vedrete in futu- 
ro non solo listati prodotti con l'Assem- 
bler della DK'Tronics, usato questa 
volta, ma anche con assemblatori di al- 
tre marche. 

Vediamo di chiarire alcune cose circa 
questo nuovo modo di presentare l'As- 
sembly: 

— in ciascuna riga trovate, da sinistra a 
destra, l'indirizzo del primo byte del- 
l'operazione, i codici esadecimali del- 
l'operazione stessa ed i codici Assem- 
bly; 


— noterete, in testa al listato, alcune 
linee *equ". Servono ad attribuire de- 
terminati valori a delle “etichette” (o 
label), che saranno usate in seguito, al- 
l'interno della routine. Questo sistema 
permette di avere a che fare con ab- 
brevizioni che richiamano subito alla 
mente il loro significato, invece che con 
aridi numeri. Le etichette non definite 
con linee equ riguardano operazioni di 


list. 1: Assembly della routine grafica 


equ 23728 COOR 

equ 23729 Y_COOR 

equ 23681 CHAR_NR 

equ 23675 UDG 

equ 23563 DEFRDD 

org 50001 

50001 2A ов 5C td h 
50004 11 04 ВО (аа 
Saao7 19 add 
50008 7Е ld а 
50009 mn? and 
500109 76 hatt 
50011 га 07 4r A 
50013 ES Push 
50014 DS Push 
50015 CD 76 СЗ catt 
50018 DI pop 
da^ ET РОР 
50029 19 add 
50021 19 add 
50022 ?E іа а 
50023 32 81 5С La 
50026 19 add 
50027 19 add 
50028 7E (а а 
50029 32 ве SC td t 
50032 19 add 
50033 19 add 
50034 РЕ ld а 
ЗЕЙ? 32 B1 SC га с 
50038 DD ES push 
50040 2A ?B SC Catch 


то~ 


N o~ 


<< TIO TIOSTJ то 


ec 


salto all'interno della routine, e perció 
assumono automaticamente il loro va- 
lore, a seconda della posizione. Mag- 
giori spiegazioni in futuro; 

— alcuni valori, all'interno del listato, 
sono preceduti dal carattere “&”. Si 
tratta di valori espressi in forma esade- 
cimale; 

— codici decimali, adatti ad essere cari- 
cati con il solito metodo, li trovate nel 
listato 2. Attenzione! Per motivi che 
chiariremo a partire dalla prossima vol- 
ta questa routine NON E RILOCABI- 
LE, cioè deve necessariamente risiede- 
re a partire dall'indirizzo 30000. 

Pur rimandando alla prossima puntata 
i dettagli di funzionamento, vediamo 
già ora tutte le informazioni che posso- 
no esservi utili per utilizzare subito la 
routine. 

Dopo averla caricato, preparate la con- 


sueta linea BASIC 
DEF FN a(A, B, C, D) 


dove: 

A sarà uguale a 1, se non si desidera 
la cancellazione del carattere nella sua 
posizione precedente (perché si tratta 
della prima stampa di quel carattere, o 
perché si vuole lasciare una “scia”). 0 
viceversa. 

B sarà il numero d'ordine del carattere 
grafico che vogliamo usare: 

0 per la A, 1 per la B e così via. 

C sarà la coordinata x della posizione 
dell'angolo superiore sinistro del carat- 
tere. 

D sarà la coordinata y della stessa posi- 
zione. Per comodità l'asse delle y ë sta- 
to rovesciato. Le coordinate 


0,0 
50043 EB 
50044 ЗА 
50047 БЕ 
58048 26 
50050 29 
50051 29 
, (DEFRDD) 50055 29 
;4. 50053 19 
L,de 50054 ES 
th LI 50055 DD 
50057 ED 
50061 CD 
, NON 50064 FS 
ht 50065 а? 
de 50066 CD 
MAIN 50069 DD 
е 50071 ED 
L 50075 48 
P 2222 95 
е 
, 
Т атш 
(hl) 50079 Cs 
нав_мв),а 59059 CD 
L,d€ 50083 Cl 
L,de 50084 оС 
th LU) 50085 ЕТ 
ООВ) ‚а 50086 FS 
С, Че 50087 с5 
(аде 50088 47 
(А L) 50089 CD 
LCOOR),a 5@@92 DD 
50094 Сі 
ix 50095 10 
, (UDG) 50097 F1 


81 
ее 


mem 


© FG 


corrispondono perciò all'angolo supe- 
riore sinistro dello schermo, mentre le 
coordinate 


255;191 


(siamo in alta risoluzione, non dimenti- 
catelo) all'estremo inferiore destro. Со- 
me vedete dal valore di quest’ultima 
coppia di coordinate, sono utilizzabili 
anche le due righe normalmente desti- 
nate ai comandi ed ai messaggi. Natu- 
ralmente, bisognerà tener conto che un 
carattere occupa 8 pixel in larghezza e 
8 in altezza; l’ultima coppia utile di 
coordinate sarà perciò 


248,184 
(cioè 255-7, 191-7) 


Attenzione a поп uscire da questi limiti, 
o saranno guai! 
Per provare potete utilizzare il pro- 
grammino 

10 DEF FN a(a,b,c,d) -USR 30000 
20 LET x=0:LET у-0 
30 RANDOMIZE ÉN a(1,0,x,y) 
40 LET x=x + (INKEY$= agh (IN 


DEY$= 252) 
50 LET у-у + (YNKEY$=“6”) — (IN- 
KEY- 742) 


60 IF x> 248 THEN LET x-248 
70 IF у> 184 THEN LET у-184 
80 IF х>0 THEN LET х=0 
90 IF у> 0 THEN LET у=0 
100 RANDOMIZE FN a(0,0,x, y) 
110 PAUSE 0 
120 GO TO 40 


che vi darà un'idea delle potenzia- 
lità della routine. 


ех de&,ht 
Sc Ld. а, CCHRR, NR) 
vd бота 
га коа 
add mt ht 
add HU, bA 
add hLU,hLl 
add hl,de 
PUSh hL 
1 РОР ix 
B ва SC (а bc, (COOR) 
е С call PIXEL 
push af 
td b,a 
E 5 catt PEUT 
3 NE ix 
в ва SC ld bc, (COOR) 
га с;Б 
* Балы; 7 
xnc с 
Push bc 
c3 call DIS 
POP bc 
XTUC = 
pop af 
Push af 
push bc 
ld b,a 
сз call PLOT 
inc ix 
FOP bc 
djnz LOOP M 
POP af 
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L'Assemblv 
assieme 


Per ricevere le riviste arretrate 
di SUPERSINC con cassetta 
compilate e spedite il coupon qui sotto! 
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list. 2: codici decimali della routine grafica 
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Sabre Wulf: una giungla 16x16 


di Alberto Barbati 
e Flavio Bruschi 


Ecco la mappa di uno fra i più 
celebri adventure animati per lo 
Spectrum, realizzata da due gio- 
vanissimi lettori. 


abre Wulf è il secondo episodio del- 

la serie della Ultimate cominciata 
con Atic Atac, anche se non è in stretta 
relazione con questo. 
Il nostro personaggio è stavolta SABRE 
MAN, un coraggioso esploratore che 
dovremo aiutare nelle sue ricerche. Uni- 
ca difesa del nostro eroe è il suo mache- 
te, che lo accompagnerà costantemente 
nella sua avventura. 
Per guidare SABRE MAN possiamo 
usare uno dei joystick previsti о, con 
l'opzione KEYBOARD, ricorrere ai ta- 
sti da Q a T sulla tastiera. Ricordiamo 
che con l'opzione CURSOR 6 possibile 
usare anche i tasti cursore piü lo zero. 
Qualunque sia l'opzione di movimento 
selezionata, con CAPS SHIFT si puó 
fermare momentaneamente il gioco (co- 
sa utilissima per dare un'occhiata alla 
mappa); ripremendo CAPS SHIFT il 
gioco continua. 


Lo scopo 

Lo scopo di Sabre Wulf consiste nel ri- 
trovare i quattro pezzi di un medaglione 
che sono sparsi per la giungla, portan- 
doli in un tempio. La cosa sembra a 
prima vista facile, ma la giungla ë molto 
vasta e piena di insidie. Vediamo in par- 
ticolare i vari aspetti del gioco. 


I mostri 


І mostri sono i nostri principali nemici, 
e senza di essi il gioco sarebbe a dir 
poco banale. Li possiamo dividere tra 
mostri autorigeneranti e non. 

Quelli autorigeneranti sono quelli che 
appaiono sullo schermo da una specie 
di nuvoletta, svanita la quale iniziano a 
scorrazzare in lungo e in largo, cercan- 
do di porre fine alla vita del nostro omi- 
no. Sono gli unici che possono essere 
uccisi col nostro machete. Ce ne sono 
di molti tipi, ma pricipalmente si tratta 


di insetti o rettili; man mano che ritro- 
viamo i vari pezzi del medaglione, nuo- 
ve specie di animaletti entrano a far 
parte della schiera dei nostri nemici. 
Ci sono altre insidie nella nostra giun- 
gla; ad esempio gli indigeni, che vagano 
per l'area di gioco e che non possono 
essere uccisi. Si puó, al massimo, colpir- 
li col machete, incitandoli a cambiare 
direzione. Ma spesso hanno la testa du- 
ra! 

In giro si possono trovare anche rinoce- 
ronti o altri animali di grossa taglia, che 
stanno solitamente accucciati in un an- 
golo. Basta solo toccarli per provocarne 
il risveglio e la furiosa carica verso il 
nostro beniamino, dopo di che essi ri- 
prendono il sonno interrotto. Come è 
logico aspettarsi, non sono molto intelli- 


genti e basta punzecchiarli col machete 
per fargli cambiare idea. 

Nel tratto di caselle da A3 a A15 (vedi 
mappa) troviamo il più pericoloso dei 
mostri in circolazione: il lupo. Esso con- 
tinua a vagare avanti e indietro nel suc- 
citato tratto, sperando di riuscire a cat- 
turare il nostro omino. Il solo contatto 
con il lupo (anche col machete) provoca 
la morte. 

Nel tempio centrale, la nostra meta (ca- 
sella M9), c’è lo stregone, che resta im- 
mobile davanti all’ingresso per impedir- 
ci di entrare. Solo dopo aver completa- 
to il medaglione diventerà inoffensivo e 
potremo passare. 

Ma la più pericolosa delle entità malefi- 
che che ci contrastano è senza dubbio 


la fiamma. Quando il tempo di perma- 
nenza in una stanza o in un passaggio 
inizia a diventare troppo lungo eccola 
arrivare. Se non ci allontaniamo subito, 
ci inseguirà per incenerirci. Come per 
il lupo, contro la fiamma il machete non 
ha effetto. 


Le orchidee 


Lungo il percorso sono sparse delle or- 
chidee, che, qualcuna più qualcuna me- 
no, ci aiuteranno a terminare il gioco. 
Questi fiori non sono sempre utilizzabili; 
solitamente è visibile solo un piccolo 
punto e, quando uno meno se lo aspet- 
ta, il fiore sboccia e subito appassisce. 
Per utilizzare un’orchidea bisogna toc- 
carla nel momento di massima fioritura. 
Il loro effetto dipende dal colore del 
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fiore ed è comunque temporaneo. 
L’omino diventerà del colore dell’orchi- 
dea finché dura il suo effetto. L’orchi- 
dea rossa ci rende invulnerabili a qual- 
siasi attacco. 

Quella azzurra, sicuramente la più utile, 
rende il nostro omino invulnerabile e 
velocissimo. L'orchidea viola agisce co- 
me quella rossa, ma inverte i comandi 
di movimento, mentre quella bianca fa 
terminare immediatamente l’effetto 
delle altre. Quella gialla, infine, ci immo- 
bilizza per un po’, ma uccide tutti i mo- 
stri visibili, tranne il lupo, gli indigeni e 
i rinoceronti. 


I bonus 


Dispersi per la foresta ci sono vari tipi 
di oggetti-bonus, da anelli a brillanti, da 
spade a sacchi di monete. Ciascuno di 
essi, se preso, ci dà 150 punti. Da nota- 
re il bonus omino, che, oltre ai punti, ci 
regala una vita (anche se non potremo 
mai averne più di 9). 


Il medaglione 


Raccogliere i quattro pezzi del meda- 
glione è, come abbiamo già detto, la 
prima cosa da fare per finire il gioco. I 
pezzi possono essere ritrovati solo nelle 
stanze (vedi mappa) e mai nei passaggi. 
Possono essere riconosciuti dagli altri 
oggetti per la loro luminosità. Quando 
uno di questi viene preso il gioco viene 
interrotto momentaneamente, mostran- 
doci a che punto siamo della ricostruzio- 
ne. Il ritrovamento viene premiato con 
un bonus di 7500 punti. 


Consigli tattici 


Una buona condotta tattica è molto im- 
portante per risolvere questo gioco; il 
primo consiglio che vi diamo è quello di 
tenere costantemente premuto il tasto 
che controlla il machete (0, se si usano 
i tasti cursore, T nell’opzione KEY- 
BOARD). In questo modo avrete una 
valida copertura nel movimento oriz- 
zontale; in caso di movimento verticale 
tenetevi a contatto di una parete, cer- 
cando di non voltare mai le spalle ai ne- 
mici. 

Non avventuratevi nelle stanze senza 
essere sotto l’effetto di un’orchidea o 
comunque non tenetevi al centro, sem- 
pre per evitare di voltare le spalle ai ne- 
mici. 

Non insistete nello scontro con un indi- 
geno; questi potrebbe avvicinarsi trop- 
po e, nonostate il vostro machete, ucci- 


dervi. 

Se un rinoceronte addormentato vi 
ostruisce il passaggio, avvicinatevi e 
stuzzicatelo con la punta del machete; 
quindi toglietevi dalla sua traiettoria, la- 
sciatelo andare via e proseguite il vo- 
stro cammino. 


Consigli strategici 


Innanzitutto, per la buona riuscita del 
gioco è necessario che la vostra esplora- 
zione sia la più razionale possibile, cioè 
che esploriate la maggior parte della 
zona di gioco nel minor tempo.’ 

Non soffermatevi in quelle stanze dove 
non ci sono pezzi del medaglione: so- 
prattutto cercate di esplorare tutte le 
stanze secondo un ordine logico. 


La mappa 


La mappa è un quadrato di 16x16 ca- 
selle, e rappresenta l’intera giungla in 
cui è relegato SABRE MAN. Per como- 
dità le caselle sono numerate da 1 a 16 
in orizzontale e da A ad Кіп verticale. 
Ingredienti principali della mappa sono 
stanze e spiazzi, collegati tra di loro per 
mezzo di passaggi. 

Le stanze sono collegate con una o due 
uscite, e possono avere nel centro una 
capanna o un laghetto. Solo qui possia- 
mo trovare i pezzi del medaglione. In 
tutta l’area di gioco ve ne sono 32, più 
la stanza di partenza e il tempio. 
Notare che le due stanze in H3 e in H10 
hanno le pareti in roccia, al contrario di 
tutte le altre. 

Gli spiazzi sono semplicemente dei pun- 
ti in cui convergono più passaggi (solita- 
mente 6). 

Risolto il gioco, apparirà il messaggio 
THE NEXT ADVENTURE OF SABRE 
MAN WILL BE CONTINUED IN THE 
UNDERWULDE. 

Underwulde è il titolo di un altro celebre 
gioco Ultimate (di cui può darsi riceve- 
rete presto nostre notizie...). 


Conclusioni 


Speriamo che con questi suggerimenti 
sarete in grado di risolvere Sabre Wulf; 
ci scusiamo per eventuali errori che 
possiamo avere commesso, invitandovi 
a segnalarceli. Buona partita! 
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di Stan Rodgers 
Trad. e adatt. 
di Lorenzo Brambille 


Bastano pochi tasti per cancella- 
re istantaneamente le linee di 
programma che non vi servono! 


uesto programma sfrutta una pic- 

cola routine in l/m inserita nel prin- 
ter buffer, a partire dalla locazione 
23300, e questo lo rende sfruttabile per 
Spectrum sia da 16 che da 48K. 
Il programma chiama una routine di 
monitor situata all’indirizzo decimale a 
6510 per avere il numero della prima 
linea da cancellare e il numero della 
linea successiva all’ultima di quelle da 
eliminare. Questi numeri di linea vengo- 
no poi passati alla routine di monitor a 
6629, che li elabora ed effettua la elimi- 
nazione del blocco. La routine in sé stes- 
sa è quindi relativamente semplice e 
molto, molto più veloce di parecchi pro- 
grammi analoghi presenti nei toolkit 
professionali più famosi. 
Per usare il programma digitatelo e sal- 
vatelo. 
Le linee 4,5,6 contengono il loader e i 
data necessari a creare il linguaggio 
macchina. Digitate GOTO 4, e il lin- 
guaggio macchina verrà collocato nella 
memoria dalla locazione 23300 in poi. 
Se compare il messaggio “Errore nel 
listato”, avete probabilmente commes- 
so un errore un errore nei DATA alla 
linea 6. Controllateli attentamente, cor- 
reggete l’errore e digitate nuovamente 
GOTO 4. Se tutto è OK, apparirà il 
messaggio. “IL CANCELLINO è pron- 


Cancellino 


versione per ZX Spectrum 16K/48K 


I” 


to! . 

Adesso potete provare il programma. 
Digitate GOTO 1 e la routine vi chiede- 
rà il numero della linea dalla quale vole- 
te iniziare a cancellare. 

Digitate 4 e inserite il numero dell'ulti- 
ma linea da eliminare. Inserite 6 e la 
routine cancellerà le linee dalla 4 alla 
6. Ora potete salvare il programma in 
BASIC col comando SAVE “CANCEL- 
LINO” e il programma in linguaggio 
macchina con SAVE “CANCELLINO” 
CODE тет, 20. Date pure NEW, ora, 


e caricate il programma da modificare, 
assicurandovi che non contenga linee 
1,2,3 (eventualmente cancellatele mo- 
mentaneamente). Caricate la routine in 
BASIC con MERGE””. Fatto? Ora date 
СОТО 3 e caricate il linguaggio macchi- 
na. Per attivare la routine date GOTO 
1 (non RUN!) e agite come già detto so- 
pra. 

Dimenticavamo: sulla cassetta trovere- 
te la routine già pronta per essere utiliz- 
zata, senza bisogno di dover effettuare 
la cancellazione delle linee 4/6. 


5804 2А005В 
5ВО? CD6E19 
5B9A Е5 
SBOB 2AØ25B 
SBeOE 25 
5B0F  CD6E19 
5в12 01 
5815. CDES19 
5816 С? 
Figura 1 - il disassemblato della 
routine di cancellazione іп 1/тп 


LD HL, (5B99) 
CALL 196E 
PUSH HL 

LD HL, (5882) 
INC. HL 

CALL 196E 
POP DE 

CALL 19E5 
RET 


3 LET mem=23300: 
CODE mem,20: 
4 LET mem=23300: 
RESTORE 6: 


LOAD "CANCELLINO" 
GO "TOL 

LET cs=0: 

FOR 1-0 TO 18: 


1 INPUT "Cancella dalla linea ";f' 
narta lanea то t:  PERERC3 OR t>999 
9 OR f>t THEN СО TO ! 


2 POKE 23296,f-256*INT (t/256): 
РОКЕ 23297,INT (Ғ/256): POKE 23 
298,t-256*1INT 00/256): PORE 2329 


ЭМЯ (t/250) 
ФОБ ТОР 


RANDOMIZE USR mem 
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READ v: POKE (memti),v: LET cs= 
СЕРУ NEXT iS READ сем ТЕ CSV 
<>25 THEN PRINT. FLASH. 1: "Еге 
ore nel listato": STOP 
PRINT "Il CANCELLINO е! 
2: STOP 
DATATA 0 91 205 11 КО 25 229 4212 
а 3955205, НО 2520925 229; 25 
,201,2081 


pronto!" 


п нин Бин шыш шыш шыш БҰНЫ шыш шыш БҰНЫ БҰНЫ шыш БҰНЫ шыш — 


di E. E. Minetti. 


Finestre a volontà in questo pri- 
mo programma pubblicato da 
SUPERSINC per il QL. 
~ 
к= una consuetudine che i primi 
programmi pubblicati per computer 
da poco usciti sul mercato riguardino la 
grafica. Questo sia perché le prestazioni 
grafiche interessano la gran parte degli 
utenti sia perché le innovazioni tecnolo- 
giche coinvolgono quasi invariabilmente 
la risoluzione dello schermo e la velocità 
di esecuzione delle istruzioni. Il QL, ulti- 
ma produzione della Sinclair, risponde 
a queste aspettative, alle quali aggiunge 
un linguaggio BASIC evoluto, il Super- 
Basic, in grado di rendere semplici delle 
sequenze di istruzioni, altrimenti com- 
plesse o noiose, il tutto a vantaggo della 
leggibilità del listato. La possibilità, inol- 
tre, di incolonnare a piacimento le linee 
di programma (indenting), consente di 
evidenziarne la struttura logica (blocchi 
FOR...END FOR;IF ...ELSE...END ЈЕ, 
ecc.. Un'altra novità di rilievo risiede 
nella possibilità di definire delle “proce- 
dure”, sottoprogrammi dotati di variabi- 
li locali e richiamabili (dall’interno o dal- 
l'esterno del programma) semplicemen- 
te col nome a loro assegnato, eliminan- 
do completamente il ricorso alle classi- 
che istruzioni СОТО e GOSUB (peral- 
tro ugualmente utilizzabili). 
Chi fosse completamente all'oscuro di 
questo nuovo linguaggio non si stupisca 
della mancanza delle istruzioni LET 
(inutile), THEN (sostituita da:) e NEXT 
(sostituita da END FOR). 
Il programma qui proposto ë un gioco 
basato sul riconoscimento dei colori e 
sulla rapidità dei riflessi, consistente 
nell'individuare in quale delle cinque fi- 
nestre piü piccole si trova il colore ugua- 
le alla finestra più grande. 
Sarà necessario pertanto ricorrere ad 
una TV a colori, sia per la difficoltà di 
distinguere certe tonalità di grigio sia 
per godersi appieno le svariate tonalità 
di colore ottenibili sul QL. 
Il gioco presenta sei livelli di difficoltà, 
a seconda del tempo concesso al gioca- 
tore per dare la sua risposta; questo ë 
stato ottenuto grazie ad una opzione del 
comando INKEY$, che permette di de- 


finire il tempo di attesa del computer. 
Come si potrà notare, delle cinque pro- 
cedure presenti nel programma l'ultima 
(forma. il file) non viene chiamata 
dal programma e serve solamente per 
aprire il file “Classifica” sul dischetto 
del Microdrive 1. Essa va richiamata 
(battendo direttamente sulla tastiera 
“forma__il_ file” seguito da ENTER so- 
lo prima di giocare per la prima volta, 
o qualora si volesse cancellare un’intera 
classifica e formarne una nuova, per- 
dendo cioè nomi e punteggi dei prece- 
denti giocatori. 

Il gioco inizia alla linea 400: vengono 
aperte sei finestre, quanti sono i riqua- 
dri, più altre due finestre di cui una per 
il punteggio una per il numero delle ma- 
ni giocate. Quindi inizia il loop in cui 
viene scelto in modo casuale il colore 


per il riquadro più grande, viene asse- 
gnato il colore agli altri riquadri e ven- 
gono conteggiate le risposte esatte. Alla 
fine di questo loop, che si ripete 100 
volte, compare la scritta “GAME 
OVER”, il cui movimento è ottenuto al- 
la linea 800 grazie alle istruzioni PAN 
e SCROLL, che muovono, rispettiva- 
mente in orizzontale ed in verticale, l’in- 
tero contenuto della finestra specifica- 
ta. 

Se il punteggio ottenuto è sufficiente 
per entrare in classifica, alla linea 820 
viene richiamata la procedura “еп- 
tri in classifica, dove viene messo in 
funzione il Microdrive 1 per cancellare 
la precedente classifica, già caricata e 
posta in array nella prima parte del pro- 
gramma, e ricrearne una nuova, inse- 
rendovi (linea 1140) la nuova sequenza 
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B pE B B 2 к LL 


di punteggi е gio 


Si torna quindi alla linea 830, dove vie- 
ne chiamata la procedura “telescriven- 


catori. 


te”. Anche qui si ricorre alla istruzione 


PAN, ma con una particolarità; infatti, 
non viene spostata verso sinistra tutta 
la finestra, che in questo caso è la fine- 


stra dei comandi 


mo (corrispondente al numero 0), bensì 
viene spostata solo la linea del cursore. 
Nell’istruzione PAN sono infatti specifi- 


cati tre paramet 


dente alla finestra entro la quale deve 
avvenire lo spostamento, preceduto dal 
simbolo “#” (cancelletto), il secondo in- 
dicante l’entità dello spostamento in pi- 
xel (valori positivi per spostamenti a de- 


stra e negativi p 


stra) e il terzo indicante quale porzione 
della finestra deve muoversi (se il valore 
è 0, o non è specificato, si muove tutto 
il contenuto della finestra; se è uguale 


a 3, si muove la 


uguale a 4, si muove solo la parte a 


destra della linea 
il cursore). 

Un avvertimento 
difficoltà più alti, 


rispondere è veramente breve; sarà 
dunque opportuno prestare attenzione 


Colspot 
versione QL 


100 REMark 


110 monitor tv mode=PEEK(163890) 

120 IF monitor tv mode = 0 

130 CLS: AT 5,5 ” 

140 PRINT"QUESTO PROGRAMMA PUO' GIRARE SOLO IN 
150 STOP 

160 END IF 


170 REMark 
180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 REMark 

300 CLS» б 
310 AT#0,3 
320  CSIZE 


alla base dello scher- 


ri: il primo corrispon- 


er spostamenti a sini- 


linea del cursore; se ë 
del cursore, compreso 


: giocando ai livelli di 
il tempo concesso per 


DIM hiscore (15):DIM nome$(15,15) 


OPEN IN£13,mdv]! classifica 
FOR.gioc = 1 TO 15 
INPUT#13, punteggio$ 


hiscore(gioc) = punteggio$ 


END FOR gioc 

FOR vv = 1 TO 15 
INPUT#13, punteggio$ 
nome$ (vv) = punteggio$ 

END FOR vv 

CLOSE#13 


LS#0: INK#0,7: CSIZE#0,0,0 


,50:PRINT#0, "by E.E.Minetti 1985" 


2,1: INK 176:PRINT: PRINT" 


ai suoni (differenziati per comparsa dei 
colori, risposta mancata o errata, rispo- 
sta esatta), per non perdere il ritmo. 


Descrizione del programma 
Dalla linea 100 alla 210 viene aperto il 
file “Classifica”, e vengono caricati e 
posti in due array rispettivamente, i 
punteggi ed i nomi dei giocatori. Come 
si può notare, entrambe le sequenze 
vengono caricate da dischetto con lo 
stesso nome (item$). 

Il file viene quindi richiuso (linea 210) e 
non verrà riaperto se non per un aggior- 
namento, nel caso che il giocatore abbia 
ottenuto un punteggio superiore a quel- 
lo più basso presente nella classifica, 
quello cioè corrispondente al quindicesi- 
mo classificato. 

Nella seconda parte viene allestito il 
menu iniziale e su richiesta viene chia- 
mata la prima procedura: ISTRUZIO- 
NE. In questa procedura, non essendo 
specificato il tempo del comando PAU- 
SE, (alla linea 1520), il programma si 
ferma fino a che venga premuto un 
qualsiasi tasto. Alla linea 340 viene da- 
to il valore alla variabile “livello”, che 
andrà a costituire il ritardo dell’istruzio- 


ne INKEY$ alla linea 670. 


Nella terza parte (linea 400 — 760), 
vengono definite le finestre (OPEN...). 
Il primo numero dopo il simbolo “can- 
celletto” associa la finestra a un canale, 
e può variare da 0 a 15. 

E bene però evitare i canali 0,1,2, per- 
ché già associati al normale output dello 
schermo; più precisamente, il canale 2 
corrisponde alla parte superiore sinistra 
dello schermo, il canale 1 alla parte de- 
stra e il canale 0 alla parte inferiore, 
cioè la finestra dei comandi (utilizzando 
il QL con un televisore i canali 1 e 2 
sono sovrapposti). In questo program- 
ma le finestre sono associate ai canali 
5,6.. fino al 12. La linea 700 è respon- 
sabile del temporaneo cambiamento di 
colore del bordo del riquadro prescelto, 
che segnala l’esattezza della risposta. 
Dalla linea 850 alla 890 vengono date 
le istruzioni per la scritta GAME OVER, 
e per il suo movimento, di cui si è già 
parlato; viene posta la condizione per 
l'ingresso in classifica e viene chiamata 
la procedura “telescrivente”. Nella pro- 
cedura "entri in. classifica" troviamo 
l'istruzione OPEN. NEW, necessaria in 
questo caso per ricostituire ex novo il 
file classifica, che ë appena stato can- 
cellato dal comando DELETE. 


'MODE TV'" 


ColSpot " 


330 CSIZE 2,0:INK 4:АТ 8,2:PRINT "Per le istruzioni premi <1>."\ 


340 АТ 10,2:PRINT "Scegli il livello di difficolta'"WN 
2 4 PRINT "da uno а већ o. 


350 АТ 12; 
360 сак5 = 


370 IF car$ <>"i" AND (CODE(car$)<49 ОВ СОРЕ(сак5) 
ro = "1" + istruzioni s GO TO 


380 ТЕ са 
390 END I 


INKEYS(-1): PRINT сак5 


Е 


400 1 = CODE(car$)-48 
410 livello = 100/1 


420 min sc 


ore$ = hiscore(gioc)+1/1 


300 


"i 


>54 ): GO ТО 300 


430 АТ 14,2: PRINT "parte dopo il terzo segnale sonoro." 
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440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
%10, 
670 
R#6, 
680 
R#7, 
690 
R#8, 
700 
R#9, 
710 
720 
730 


740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 


PAUSE 100:ВЕЕР 5000,15:PAUSE 50:BEEP 5000,15:PAUSE 50:ВЕЕР 5000, 15 


PAPER 0 :CLS:CLS#0 


REMark:.=c=s=Sssst=LerbioltilonseccatoccnthleordeCatechella ale De E 
REMark ----------------- ColSpot. B.E.MINETTI ---------------ез-е 
REMark == вена ыза нана сым > Шаезессоакеселбеешеді шаа ақа 


OPEN#5,SCR_260X130A130,20:BORDER#5,4,176 
OPEN#6, scr_ 80x40a45x160: BORDER#6,2, 176 
OPEN#7,scr 80x40a128x160: BORDER#7, 2, 176 
OPEN#8,scr_ 80x40a215x160:BORDER48,2,176 
OPEN#9, scr_ 80x40a300x160:BORDER#9,2,176 
OPEN#10,scr 80x40a385x160: отот 2,176 
OPEN#11,scr 43x12a48x20: BORDER#11, 1176 
OPEN#12,scr 43x12a428x20: ron) 1,176 
CSIZE#11,2,0:INK#11,4:CSIZE#12,2,0:INK#12,2 
CSIZE#0, 3, 1: INK#0,4:PRINT#0," 1 2 3 4 5" 
Score = 0: PRINT#11,"000" 
FOR mano = 1 TO 100 

PRINT#12,"0"; mano 

num = RND (29 TO 255) 

PAPER#5,num 

caso = RND (1 TO 5) 

SELect caso 


ON caso = l1:PAPER#6,num:PAPER#7,num-6:PAPER#8,num-12:PAPER#9,num-18:PAPER 


num-24 

ON caso 
num-24 

ON caso 
num-24 - 

ON caso 
num-24 

ON caso 
num- 24 

END SELect 

FOR fin - 5 TO 10 

CLS#fin: ВЕЕР 2000, fin*2 


END FOR fin 
in$ = INKEY$ (livello): risp = CODE(in$) 
IF risp-48 - caso 


2: PAPER#7,num: PAPER#8,num-6: PAPER#9,num-12:PAPER#10,num-18:PAPE 
3: PAPER#8,num: PAPER#9,num-6:PAPER#10,num-12:PAPER#6,num-18:PAPE 
4:PAPER#9,num: PAPER#10,num-6:PAPER#6,num-12:PAPER#7,num-18:PAPE 


5:PAPER#10,num:PAPER#6,num-6:PAPER#7,num-12:PAPER#8,num-18:PAPE 


BORDER#caso+5,2,4:BEEP 6000,7,5,5,5,14:PAUSE 12: BORDER#caso+5,2,176 


score = score +1 
PRINT#11 ,"0"; score 
ELSE 
BEEP 4000,16,5,5,5,5 
END IF 
END FOR mano 
PRINT#12,100 


КЕМатқ ча 2“ тазасы s. ecu E а M cec seats 


CSIZE#5 ,3,1: INK#5,176: AT#5,3,3: PRINT#5, "GAME OVER" 


FOR p =20 TO 1 STEP -2:PAN#5,p:SCROLL#5,p:PAN#5,-p:SCROLL#5,-p:NEXT p 


INK#0,7:INK 7:CSIZE 0,0 


score = score * l : IF score > hiscore(gioc) : entri in classifica 
telescrivente Е 
REMark -------------------------------------------.-- ло 
DEFine PROCedure telescrivente 
CSIZE#0,2,0 
frase$=" ColSpot by E.E.Minetti PER GIOCARE PREMI 'Р' PER VEDERE LA 


CLASSIFICA PREMI 'C' и 


950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 


REPeat loop 

POR се11 = 1 ТО 90 
соп$ = frase$ (cell) 
AT#0,3,35: PRINT#0, cong; 
PAN#0,-12,3 


IF con$«»" " + BEEP 400,5,5,5,1 

stop$ = INKEYS(0) 

IF stop$ = "p" : GO TO 300 

IF stops = "c" ; presenta_la classifica 


END FOR cell 
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aem 


1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
7470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 


END REPeat loop 
END DEFine telescrivente 
НЕМВЕК. жасағалы емі бы жасы e 
DEFine PROCedure entri іп classifica 


DELETE тау! classifica : OPEN NEW#l3,mdvl classifica 
BEEP 4000,5: CSIZE#0,2,0: CLSTO: BEEP 4000,7 
AT#0,0,1: PRINT#0,"Con"!score!"punti,entri in classifica I" 
ВЕЕР 7000,5: AT#0,1,1: INPUT#0,"Scrivi il tuo nome :", nuovo nome$ 
FOR € = 14 TO 0 STEP -1 
IF score > hiscore (с) 
hiscore(c+1)= hiscore(c) 
nome$ (c+1) = пошез (с) 
ELSE ЕХІТ с 
END IF 
END FOR C 
hiscore(c+1) = score : nome$(c+1) = nuovo nome$ 
FOR v = 1 TO 15: PRINT#13,hiscore(v): NEXT v 
FOR v = 1 TO 15: PRINT#13,nome$(v): NEXT v 
CLOSE #13 
END DEFine entri in classifica 
REMark osso јр 
DEFine PROCedure presenta la classifica 


PAPER#5,33:CLS#5 
OVER 1 z CSIZE 2,0: INK 7 
FOR g = 1 ТО 15 
АТ 4,5: PRINT ;nome$ (g) 
AT а;!б РКІМТ g+" s" 
AT g,20:PRINT"punti...."!hiscore(g) 
END FOR g 
OVER 0% CSIZE 0,0 
END DEFine presenta la classifica 
RÉMark ааыа ер —H 
DEFine PROCedure istruzioni 


съб 2 CSIZE 0,0% INK 7 
AT 0,27: PRINT "Premere il numero corrispondente al riquadro" 
AT 1,27: PRINT "che mostra il colore uguale al riquadro piB 
АТ 2,27: PRINT "grande. Tasti 1 2 3 4 5 .La giusta risposta" 
AT 3,27: PRINT " segnalata da un 'beep' particolare e dal" 
AT 4,27: PRINT "bordo del riquadro che s'illumina di verde." 
AT 6,1: PRINT "Il punteggio finale dato dal numero" 
AT 7,1: PRINT "di risposte giuste (che appare in verde" 
AT 8,1: PRINT "in alto a sinistra durante il gioco)," 
AT 9,1: PRINT "moltiplicato per il grado di difficolt 
AT 12,32: PRINT "Se appaiono due colori uguali in due" 
AT 13,32: PRINT "quadri vicini,scegli quello a sinistra" 
AT 16,1: PRINT "Non interrompere il gioco (CTRL\BARRA) " 
AT 17,1: PRINT "mentre il microdrive in funzione." 
AT 19,27: PRINT "Per tornare al gioco premi qualsiasi tasto" 
PAUSE 
END DEFine istruzioni 
ВЕМакЕ === ааа ааа 
DEFine PROCedure forma il file 


DELETE та“! classifica 
OPEN NEW #13,тау1 classifica 
punti = 0 Б 
FOR volte = 1 ТО 15 
PRINT#13, punti 
END FOR volte 
Sstringas = ", ¿ < x="! 
FOR volte = 1 TO 15 
PRINT #13, stringa$ 
END FOR volte 
CLOSE#13 
COPY mdv]l classifica TO scr 
END DEFine ci i 
КЕМаЕК 2-222-—-—-————-—— mime 
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di Guido Bertolotti 


Come si scrive 399 in base 32? 


uesto programma ha lo scopo di 

convertire la rappresentazione di 
un numero in rappresentazioni in altre 
basi numeriche a scelta (da base due a 
base trentasei). 
Il programma è stato scritto per 2Х81, 
ma con alcune piccole modifiche gira 
anche sullo Spectrum. 
Il problema della conversione numerica 
è per ogni utilizzatore di computer un 
aspetto importante dell’arte della pro- 
grammazione, specialmente se рго- 
gramma in linguaggio macchina o vuole 
definire dei caratteri grafici (UDG). Pri- 
ma di passare alla descrizione del pro- 
gramma è quindi utile richiamare qual- 
che nozione teorica riguardante questo 
argomento. 
Se noi abbiamo un insieme formato, per 
esempio, da centodiciassette oggetti, 
per indicarne il numero scriviamo così: 
117. Con questo intendiamo che l’insie- 
me è formato da un centinaio + una 
decina + sette unità di oggetti: la cifra 
più a destra ha il “peso” più basso (cifra 
delle unità) e tutte le altre hanno un 
“peso” dieci volte superiore a quello 
delle cifre immediatamente a destra..Si 
dice quindi che noi contiamo in base die- 
ci 
Nulla peró ci vieta di contare in altre 
basi, per esempio in base cinque. Il nu- 
mero centodiciassette ha questa rap- 
presentazione in base cinque: 432. Con 
questo intendiamo che l'insieme è for- 
mato da quattro venticinquine, tre cin- 
quine e due unità. Il numero degli ogget- 
ti è sempre lo stesso, ma è cambiato il 
modo di raggrupparli о, che è lo stesso, 
di rappesentarne il numero. 
Chiarito questo, ci chiediamo ora: come 
si può “tradurre” la rappresentazione 
di un numero in una certa base nella 
sua rappresentazione in un’altra base? 
Il programma, nella sua brevità, per- 
mette facilmente di risalire all'algoritmo 
di conversione. Dopo essersi presentato 
il programma richiede le due basi e le 
memorizza nelle variabili B e C. 
Richiede poi la rappresentazione da 
convertire e la memorizza in N$. 
Il seguente loop FOR A... (linea 310) 
trasferisce in N il valore numerico di 


N$. La variabile D, contenuta nel loop, 
ha il valore numerico della cifra N$ (A). 
Il valore di D viene controllato alla linea 
320 e, se 6 illecito (esempio: in base 
due sono lecite solo le cifre O e 1), si 
torna alla richiesta di N$. 

Supponiamo ora che il programma stia 
convertendo la rappresentazione 112 in 
base tre nella corrispondente rappre- 
sentazione in base quattro (vedi anche 
la fig. 1). Al primo passaggio del loop 
М avrà valore uno (vedi linea 330), cioè 
il numero delle “novine”. Al secondo 
passaggio N viene moltiplicato per tre, 
e assume cosi il valore di tre (le terne 
contenute in una novina), a cui viene 
sommata la terna corrispondente alla 
seconda cifra della rappresentazione 
(N=quattro terne). Al terzo e ultimo 


passaggio le quattro terne vengono mol- 
tiplicate per tre, ottenendo dodici unità, 
a cui si aggiungono le ultime due unità 
(cifra “2” di 112), ottenendo infine 
N-quattordici unità. 

Terminato il loop si controlla che il valo- 
re di М non superi 4'294'967'295, è il 
piü grande numero intero che puó esse- 
re contenuto senza approssimazioni in 
una variabile. Se non esistesse questo 
controllo, si potrebbero ottenere, tradu- 
cendo numeri troppo grandi, dei risulta- 
ti approssimati. 

Si passa poi alla seconda parte del pro- 
gramma, che inizia alla linea 390 e ge- 
nera la rappresentazione in base C di N. 
Ritornando all'esempio scelto, alla linea 
400 si divide quattordici per quattro, 
ottenendo tre, cioé il numero delle quar- 
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tine contenute іп quattordici. Ма (vedi 
linea 401) tre per quattro fa dodici, e 
due unità restano fuori da questo rag- 
gruppamento, costituendo cosi la cifra 
delle unità della rappresentazione che 
vogliamo ottenere. Al secondo passag- 
gio dividiamo le tre quartine in quattro, 
ottenendo zero esadecine e tre quarti- 
ne, che restano fuori е costituiscono 
quindi la cifra delle quartine. Visto (li- 
nea 430) che non ci sono esadecine da 
raggruppare, viene stampato il risultato 
(32) e il programma passa alla richiesta 
di un nuovo numero (meglio: di una nuo- 
va rappresentazione). 

Val forse la pena di ricordare che, se si 
vogliono rappresentare numeri in basi 
superiori a dieci, le dieci cifre che siamo 
abituati a usare non bastano più, e quin- 
di si ricorre alle lettere dell’alfabeto (A 
vale dieci, B undici, ecc.), ma poiché a 
un certo punto anche le lettere finisco- 
no, siamo costretti (a meno di voler usa- 
re altri simboli) a fermarci: è questo il 
motivo per cui il programma non può 
trattare numeri scritti in basi superiori 
a trentasei. 

Oltre a rivelarsi utile per le usuali con- 
versioni fra i sistemi binario, decimale 
ed esadecimale, questo programma ha 
una curiosa possibilità: predisponendo- 
lo a funzionare da base trentasei a base, 
diciamo, dieci, si possono codificare 
brevi parole (che, naturalmente, sono 
per il computer numeri in base trenta- 
sei) in incomprensibili gruppi di cifre de- 
cimali. Ovviamente, con la trasforma- 
zione inversa si ottengono nuovamente 
parole comprensibili. 
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Note importanti per gli utenti 
di ZX Spectrum 


Per poter girare sullo Spectrum il pro- 
gramma necessita di alcune modifiche: 
1) eliminare tutte le linee contenenti le 
istruzioni SCROLL, FAST e SLOW (im- 
possibili del resto da digitare, perché 
mancano sullo Spectrum); 

2) le linee del listato contrassegnate da 
REM $$ ($$=Solo Spectrum) vanno 
chiaramente scritte, eliminando il REM 


$$; 

3) sostituire le ultime due linee con que- 
st'unica: 

500 SAVE “convers.” LINE 1 


Noi possiamo rappresentare il 
numero di quattordici in anti mo- 
di: per esempio in base tre o in 
base quattro. Quello che cambia 
è il modo di raggruppare gli ele- 
menti: il loro numero invece non 
cambia. 


Conversione basi 
numeriche 
versione per ZX81 16K. 


u 
LINT 


im mm n m 
nr mmmmrmrm 
IEEE ETE 


ва PRINT 


108 PRINT “QUESTO PROGRAMMA CON 
VERTE LE RRPPRESENTRZIONI DI 
NUMERI INTERI, COMPRESI FRA 

ô E 4.254.067.295, TRA D 
UE BASI COMPRESE FRA 2 E 26. 

110 PRINT 

120 PRINT "LE DUE BASI DEVONO Е 
SSERE SPECIFICATE ALL'"INI 
215, РЕВ CAMBIARLE ІМ SEGUIT 

LLA RICHIESTA DI UN NUM 
Bao" ERSERISCISTRINGR NULLA." 

152 PRINT AT 21,0; "DA BASE 
ше»! 

140 

150 ТЕ Pete POR 8:36 OR BO INT В 


THEN GOTO 140 


LET 

LET EINT 
ШЕТ D=N 
КЕМ 8% ТЕ "5, 9 TH 
ЕМ SHIFT DI 3 COD 


мис) 
13% 


160 PRINT В 

170 SCRO 

180 PRINT "A ВАЗЕ ==)"; 

190 INPU 

200 IF C<2 OR С»з6 OR CINT C 
OR C=B THEN 19 

210 PRINT С 

220 SCROLL 

222 REM && PRINT 

223 REM $$ PRINT 

£30 SCROLL 

240 SLOU 

eso PRINT RT 21,0; "NUMERO. 0010» 

2650 INP N$ 

270 ЕН N $=" " THEN GOTO 130 

280 m 

290 PR NT RT 21,0;" 

300 LET =@ 

зла FOR Rz1 TO LEN МЕ. 

311 REM $$ IF CODE N$(R))=S7 RN 
D CODE NSíiR)«z1e2 THEN LET МЕСА) 
=CHR$ (CODE N$(A)-32): REM TRASF 
ORMA LE MINUSCOLE IN MAIUSCOLE 

315 LET D=CODE МЄ (Я) -CODE "a" 

316 REM $$ IF D»z10 AND 0‹=16 Т 
НЕМ СОТО 240: REM CONTROLLO ЗТМВ 
QL Z ILLECITI | 

317 REM $$ IF D»9 TH LET DzD- 
7: REM SHIFT DI 7 CODICI IN MENO 

DELLE LETTERE 
ani IF р‹@ OR Dy=B THEN GOTO 24 

330 LET N=N#B+D 

340 NEXT 
Мы IF N»42984967295 THEN GOTO 2 

860 PRINT РТ 21,0; №; 

320 IF LEN N$) ME THEN SCROLL 

$860 qud ," (BASE HAS, “" 

390 

400 

401 

402 

: R 


ам 
ІС 


E LETTER 


Е 
LET N$=CHR$ 
LEI NsE 
F мод THEN GOTO 400 


(D+CODE "©®")+N$ 


ar Ы 


y=16 THEN SCROLL 
BASE “Ж” 


ММЕН5ІОМИ" 
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di J.W. Casson è» 
trad. e adatt. 
di Paolo Maffei 


Tutti come Beethoven con que- 
sto nuovo programma musicale 
per lo Spectrum 16K/48K 


S ebbene soggetto alle note limitazioni 
sonore dello Spectrum, questo pro- 
gramma svolge in maniera efficace la 
funzione di scrivere musica su un pen- 
tagramma e di ascoltarne la melodia. 


Come usare il programma 

- CHIAVE: all’inizio il computer vi chie- 
derà quali note desiderate vengano suo- 
nate, e se le volete diesis oppure bemol- 
le. 

Alla domanda “DIESIS?” risponderete 
quindi introducendo, una alla volta, le 
note che desiderate rendere diesis, op- 
pure premendo solamente ENTER, se 
non ne desiderate alcuna. 

Utilizzerete lo stesso procedimento alla 
domanda “BEMOLLE?”. 

Ricordo che rendere una nota diesis si- 
gnifica aumentarne l'altezza di un semi- 
tono; al contrario, rendere una nota be- 
molle significa diminuire la sua altezza 
di un semitono. 

- TEMPO: vi verrà quindi richiesto il 
tempo di battuta. Dovrete allora intro- 
durre, sotto forma di frazione, il tempo 
che desiderate: 3/4 per ип valzer, 3/8 
per una gavotta, 4/4 per la musica mo- 
derna, ecc. 

- SELEZIONE DEI CARATTERI: si 
possono ora definire i caratteri musicali; 
le possibili scelte a disposizione sono: 


PAUSA 
NOTA 
DIESIS 
BEMOLLE 


un periodo di silenzio 


Normalmente la scritta “nota” lampeg- 
gia nella griglia; per ottenere una pausa 
dovrete premere il tasto R fino a che la 
scritta corrispondente non lampeggerà; 
per tornare al carattere NOTA sarà suf- 
ficiente premere il tasto N. 

Per ottenere una nota diesis o bemolle 
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| ШЕШ шыш шыш кшш шшш шш БҰНЫ БҰНЫ ишш БЕНЕН «ки мн БР” 


Descrizione del programma 


Linee 
2-160 


300-370 
400-490 
500-550 
1000-1230 
1500-1509 


1510-1541 
2010-2500 
2500-2530 


Commento 

linguaggio macchina per lo scroll verso sinistra 

inizializzazione delle variabili e determinazione dei caratteri 

maiuscoli 

ciclo input dei caratteri musicali 

ciclo input dei toni 

disegno della nota e scroll 

input delle note diesis, bemolle e del tempo di battuta 

iis ug della parte iniziale del pentagramma e della chiave 
i so 

disegno delle linee del pentagramma 

viene compilata la melodia 

suono della melodia 


userete rispettivamente i tasti S o Ғе 
per cancellare questa scelta premerete 
il tasto opposto a quello selezionato 
(p.e. se lampeggia la scritta diesis, pre- 
merete il tasto F per tornare al caratte- 
re nota). 

— DURATA DELLA NOTA: la durata 
della nota viene selezionata tramite i 
tasti 6 e 7, muovendo cioè il cursore 
lungo il menu fino a trovare il tipo di 
nota desiderato. 

Effettuata la scelta premerete EN- 
TER. 

- SELEZIONE DEI TONI: a questo 
punto un altro cursore comparirà alla 
destra del pentagramma e potrà essere 
posizionato usando ancora i tasti-cur- 
sore 6 e 7 e quindi ENTER. 

La nota verrà così disegnata nella giu- 
sta posizione nel rigo e il computer tor- 
nerà nella situazione di selezione dei ca- 
ratteri musicali. 

In questa situazione avete inoltre a di- 
sposizione le seguenti opzioni: 

‘P’ - suona la melodia introdotta dall'ini- 
zio alla fine. 

“К? + numero - lista il pentagramma dal- 
la nota desiderata alla fine. 

CAPS + '0' - cancella l'ultima nota in- 
trodotta. 

La pressione del tasto ‘D’ durante la 
selezione dei toni vi permette di ritorna- 
re alla selezione dei caratteri musicali. 


Come introdurre il programma 


Per prima cosa bisogna introdurre la 
routine in linguaggio macchina, che per- 


3000-3099 coordinate per disegnare le note, le pause, ecc. 


4000-4060 disegno delle pause, scroll verso sinistra 
8500-9000 coordinate per il LIST del pentagramma 
9500-9560 


subroutine per il disegno delle note e delle pause 


Descrizione delle variabili 


Tim tempo di battuta 

BA durata delle note nella battuta 

Т(4,100) contiene le informazioni della melodia come segue: 
T(1,100) tipo di nota o di pausa e 

T(2,100) altezza della nota, così come sono state introdotte 
T(3,100 nota o pausa effettiva e 

T(4,100) reale altezza della nota, così come sono state compilate 
N(1,19) DATA per convertire numeri in istruzioni BEEP 
S$(100) controllo dei caratteri — diesis, bemolle e sbarrette — 


R variabile binaria pausa 

6 variabile binaria diesis 

F variabile binaria bemolle 

С variabile cursore 

L numero delle note introdotte 
ЕМІ converte le ІМКЕҮ% nella var. С 
ЕМ В converte il tipo di nota іп durata dei ВЕЕР 
converte T(2,L) in coordinate schermo 


mette lo scroll del pentagramma verso 
sinistra . Questa routine è contenuta іп 
una linea REM seguita da 32 caratte- 
її: 

Copiate quindi il programma n. 1 e date 
il RUN; per controllare che tutto funzio- 
ni perfettamente fate la seguente pro- 
va: 


PRINT АТ 9,10; “АВС”: FORI=1TO 
9: RANDOMIZE USR sc: NEXT I. 


Le lettere ABC dovrebbero comparire 
e muoversi verso sinistra. 


Se la routine non dovesse funzionali cor- 
reggete gli eventuali errori di copiatura, 
altrimenti eliminate; una alla volta, le 
linee 2, 9900, 9910, 9920. NON CAN- 
CELLATE LA LINEA 1. 


Potete ora introdurre il pentagramma 
principale e dare libero sfogo al vostro 
talento musicale. 


Supercomposer 190 GO SUB 1000 
versione per ZX Spectrum 16K/48K 301 LET R=0: LET E=L 
Listato 1 31O PRINE ОАТ ЕИО 1 Semibreve 
programma principale 2 Minima 
3 Semiminima 
1 REMH!H GO SUB VAL @> 4 Croma, 
CHWEGORSUBEZICLS «0.60 5  Semicroma" 
10 POKE 23658,8:: INK 0: PAPER 6: 
BORDER 6: BRIGHT 0: CLS : DIM S 320 PRINT FOLAT СОЗ FOVERDO 
S100) S LET S=02 ШЕШСЕ 0 321 BRIGHT 1: PRINT АТ 2,0; FLASH F; 
TI POKE 28676 22155 "BEMOLLE"; FLASH NOT R;AT Зо 
13 DEF ЕМ I(C,L,H)=C+(INKEY$="6")*( OTA FLASH S;AT 4,0; "DIESIS 


C«H) - (INKEY$="7")*(C>L) 


25 DEF ЕМ P(X)=50+2*X 


30 LET 5С-РЕЕК 23635+256*PEEK 23636 


+5 
100 DIM М(19) 
110 DIM Т(4,100): LET 1-1 
130 GO SUB 1500 
131 LET R=0 
132 LET BA=0 
133 DEF FN B(T)=2/21T 
135 RESTORE 
140 FOR N=1 TO 19: READ C 
150 LET N(N)=C 
160 NEXT N 


10 А РАНО 3-1 0 245 9 iy 12, 
ПАБ по 21, 2324, 26 


"; FLASH К; АТ ЗАРАВАН: 
PLASH О We МОтАС Vo E MIS 


BRIGHT 0 


322 LET Е-(МОТ R) AND ((INKEY$="F" 


S) 


T: = 3:01: 


Wo NIS 


AND 5-0) OR ((F AND ІМКЕҮ5<>" 

LET S-NOT В AND ((( 
INKEY$="S" AND Е-0) OR (S AND 
INKEYS<>"E"))) 

330 IF INKEYS-CHRS 13 AND BA+FN В (С) 
<=TIM THEN LET Т(1,1)=С: ВЕЕР. 

LET BA=BA+FN B(C): LET S$ 
(1) =CHR$ 
А=ВА* (ВА<ТІМ): GO TO 400+3600*R 

331 IF INKEY$="K" THEN 


((128*(BA=TIM))): LET B 


INPUT "LIST 


LET L=NL: LET E=100: 
GO SUB 8500: GO TO 300 


180 LET С=1: LET OC=C: LET ОРС=1: 332 IF INKEY$=CHR$ 12 THEN LET L=L- 


LET РС-ОРС 


1: LET BA=BA-FN B((T(1,L))-10*(T 
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333 
334 


340 


370 


402 


420 
425 


480 


490 

500 

550 
1010 
1015 
1020 
1030 
1045 
1060 
1070 


1075 
1090 
1100 
TITO 
11.12 
VS) 
1130 
1150 
1160 
1170 


1180 
1 190 
220 


1220 
#2300 
1500 
0507 


1502 
1503 


(ОТД) 10): ШЕТ BA=BA+TIM* (BA«0) 
BEEP .1,-30: LET T(I,L)=0: 

LET 86(1,)-"": GO TO 300 

IF INKEYS-"P" THEN GO SUB 2000: 
GO то 300 

LET R=((INKEYS="R") AND (R=0)) 
OR (R=1) AND (INKEY$<>"N") 

LET С-ЕМ І(С,!;5): ТЕ OC<5G 
THEN ВЕЕР .05,-30: PRINT #0; 

АТ ОСОР OVER ТУН EE OC 

со то 320 

OVER 1 

LET 58 (1) “СНЮ5 

51*F) 

PLOT. 250,88-PC*2: 
DRAW 2,2 

LET РС-ЕМ І(РС,1,19) 

IF INKEY$=CHR$ 13 THEN СО ТО 47 

0 

IF OPC<>PC THEN ВЕЕР .05,-30: 
OVER 1: PLOT 250,88-OPC*2: 

DRAW -2,2: DRAW 2,2: LET ОРС-РС 

: СО ТО 410 

IF INKEY$="D" THEN PLOT 250,88- 

2*PC: LET BA=BA-FN B(T(1,L)): 
LET ВА=ВА+ТІМ* (ВА<0): DRAW -2,2 

: DRAW 2,2: GO TO 300 

GO TO 420 

PLOT 250,88-PC*2: DRAW -2,2: 
DRAW 2,2: LET T(2,L)=20-PC 

OVER 0: GO SUB 1510: REM DRAW ST 

AVE 

RANDOMIZE USR SC 

LET LI=L: GO SUB 3000 

LET 1=1+1: GO ТО 300 

INPUT "DIESIS ?"; LINE І5 

GO SUB 9700 

IF Іб-"" ТНЕМ GO TO 1100 

ТЕТ S=(CODE 15)-63 

IF 18-"С" THEN LET М(1)-М(1)%1 

FOR М=1 ТО 19 

IF (М-5) OR (М-5%7) OR (M=S+14) 
THEN LET N(M)=N(M) +1 

NEXT M 

GO ТОР ОО 

REM INPUT BEMOLLE 


(CODE 55 (L)+50*S+ 


DRAW -2,22 


INPUT "BEMOLLE ?"; LINE I$ 
GO SUB 9700 
ТЕ I$s"" THEN GO: TO 1200 


LET S=(CODE 15)-63 

IF 15="6" THEN LET N(1)=N(1)-1 
POR M=1 pO: 19 

IF (M=S) OR (М=5+7) ОК 
THEN LET N(M)sN(M)-! 
NEXT M 

GO TO 1100 
INPUT "Tempo 
Чела 


(M=S+14) 


(sotto forma di fra 


RETURN 

REM lst STAVE 
GO SUB 1510: 
DRAW 0,-16 
RANDOMIZE USR SC: GO SUB 1510: 
PLOT 238,58: DRAW 4,0,PI: 
DRAW 0,27: DRAW 2,4,PI/12: 


OVER 0: DRAW -8,0: 
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1509 
1510 
1520 
1530 
1540 
1541 
2010 


2020 
2024 


2025 
2030 
2040 
2050 
2499 


2500 
2510 
2511 
2520 
2530 
3001 
3010 
3015 


3017 


3018 


3020 
3030 
3039 
3040 
3050 
3060 
3070 


3080 
3090 


3091 


3092 


3099 
4038 
4039 


DRAW -4,-7: 
DRAW 1,12, 
сос сив. 1510: 


DRAW 2 /- 4; рО 
DRAW 0L УБИЈАНИ l 2: 
РГ: БОВ r=0 ТО 2; 
NEXT r 
со SUB 1510 
FOR М-0 ТО 4 
PLOT 239,62+4*N 
DRAW 8,0 
NEXT n 
RETURN 
INPUT "Durata minima della nota 
две Ш 
, 
FOR N=1 TO L-! 
IF T(1,N)=0 THEN 
со ТО 2500 
ТЕ Т(1/М)>ТОСТНЕМ LET T(3,N)=10 
0/21((T(1,N)-10)): GO TO 2050 
LET T(3,N)=T*2/(21(T(1,N)))+T/20 
*((SS(N-(N>1))<CHR$ 128)) 
LET T(4,N)=N(T(2,N))+(S$(N)="2" 
OR S$(N)="SIN бу (SISI) 
OR SSN) = COS ") 
NEXT N 
PRINT #0; "TUNE COMPILED PRESS AN 
Y KEY": PAUSE 0 
FOR N=1 TO г 
IF T(1,N)<10 THEN 
(4,N): NEXT N 
PAUSE (T(3,N)+1) 
NEXT N 
RETURN 
LET S=0: LET F=0 
GO SDB. 1510 
БЕТ Е-0: ТЕ т(1,1) >10 THEN 
LET R= l+ LET TOTAL 


RETURN 


LET L=N: 


BEEP T(3,N),T 


IF S$(L)="2" OR S$(L)="SIN " 
THEN PRINT АТ 15-(Т(2,1.) /4) ,28 
TO: ЕТИБ 

IF S$(L)="3" OR S$(L)="COS " 
THEN PRINT АТ 15-(T(2,L)/4),28 
zi PES ипон 192 


со SUB 9000+100*T(1,L)+50*R 

ВЕМ МОТЕ АВОУЕ ОК ВЕГОМ 5ТАМЕ 
ТЕ В ТНЕМ GO ТО 3080 

IF T(2,L)>15 THEN PLOT 235,82: 
DRAW 8,0 

IF T(2,L)>17 THEN PLOT 235,86 
DRAW 8,0 

IF T(2,L)<5 THEN PLOT 235,58: 
DRAW 8,0 

ТЕ T(2,L)«3 THEN 
DRAW 8,0 
RANDOMIZE USR SC 
FOR је SS S a on SS EI) 
"сту "COR 55 (п+1)- "2", OR SS (1+1) 


PLOT 235,94: 


="COS ") TO T(1,L) STEP -1: 
GO SUB 1510: RANDOMIZE USR SC: 
NEXT J 


IF CODE S$(L)>=128 THEN PLOT 24 
0,62: DRAW 0,16: GO SUB K5 102 
RANDOMIZE USR SC 

ІН Ro THEN BET SU CER Bea 0 
LET R=0 

RETURN 

LET T(1,L)=T(1,L)+10 

GO SUB 3000 


4040 LET 1=1+1 . 

4060 GO TO 300 

802 АРА (2,71) 09. THEN  P56T 2325790: 
DRAW 8,0 

8500 REM LISTN,E 0 

8510 RANDOMIZE USR SC: GO SUB 1500: 
REM TREBLE CLEF 

8520 FOR X=0 TO 10 

8535 LET L=X+NL 

853 771E Т (Лу) -0 ОВ: LE THEN 
RETURN 

8540 GO SUB 3000 

8576 NEXT X 

8580 IF L<E THEN LET NL=NL+X: 
PRINT АТ 0,0 стол ом” PAUSE 0 
7 PRINT AT 0702o OVER TOs" 

пе СО TO 8520 


8590 PRINT BA: PAUSE 0: RETURN 
9101 OVER 0 

9105 LET Ү-ЕМ P(T(2,L)) 

О елет 239 Y, 2 

9140 RETURN 


9160 PLOT 245,70: DRAW 0,-2: DRAW 5,0 
: DRAW 0,1: DRAW -5,0: RETURN 

9210 СО SUB 9100 

9220 PLOT 241,Ү 

9230 DRAW 0,11 

9240 RETURN 


9260 PLOT 245,71: DRAW 0,1: DRAW 5,0: 
DRAW 0,-1: DRAW -5,0: RETURN 


9310 LET Y=FN P(T(2,L)) 
9320 FOR D=0 TO 2 STEP .5 
9ОЗЗОКСТЕСТЕ 1239 ум ро 

9340 NEXT D 
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Listato 2 
generatore del linguaggio macchina 


KOREM ТО ЕЕС 


2 LET sc=PEEK 23635+256*PEEK 23636 
+5 


9349 
9360 


9400 
9410 
9420 
9430 
9440 
9449 


9460 


9510 
9520 
9530 
9560 


9700 
9710 
9720 
9730 
9740 
9750 
9760 
9770 


9900 
9910 


9920 


Dal “Dizionario della disinformatica”, pagina INT(RDN*1000)+1: 


ADATTATORE 


PLOT 241,Ү: DRAW 0,11: RETURN 
PLOT 245,66: DRAW 0,4: DRAW 2,0: 
DRAW -1,3: RETURN : 

REM QUAVER 

LET Ү-ЕМ P(T(2,L)) 

FOR D=0 TO 2 STEP „5 

GIERCEH 239.Y,D 

NEXT D 

PLOT 241,Ү: DRAW 0,11: DRAW 3,-2 
: DRAW -3,1: RETURN 

PLOT 245,70: DRAW 4,1: DRAW -2,- 
6: RETURN 

GO SUB 9400 

DRAW 0,-3: DRAW 4,-1: DRAW -4,1 
RETURN 

PLOT 245,70: DRAW 4,1: DRAW 0,-2 
© DRAW 371: (DRAW -3, 12 DRAW -2,- 
6: RETURN 

ПОР БОРО НИ THEN FLET он 

ТЕ РО ИБН НЕУМ 3 DE ip Y о) 

ТЕ 15- "МЕ" THEN ШЕТ 15-"Е" 

TE ISsURA-THEN "LET ISSUE 

TE PSE" SOLT THEN CERT rom tu 
TRERS-ULA'CTHPNU DET роде 

ПЕ = мот THEN ppp ови 
RETURN 


FOR n=0 TO 26 

READ byte: POKE sc+n,byte: 

МЕХТ п 

ЮАТА 0787177 059725399 8 75)2 2: 9 2) 721 
676764262001 7732097593 99 72:918] 
УРА ВА 90 65:725 1720 


connettore usato per collegare al calcolatore apparecchi con esso incompatibili. L'incompatibilità permane, ma almeno il collegamento esiste. 


ALTA RISOLUZIONE 


tecnica di programmazione avente lo scopo di far tracciare dal computer linee diagonali estremamente antiestetiche. 


AMPLIFICATORE SONORO 


dispositivo interfacciabile al computer che permette ai vicini di casa di sentire i vostri bambini giocare a *3D Pacvaders". 


ARCADE GAME 
coloratissimo e rumoroso misuratore di riflessi. 


ARRAY 


tipico urlo di gioia del programmatore che constata il perfetto funzionamento del suo programma per la prima volta. 


AUTOSTART 


meccanismo che provoca l'apertura del fuoco alieno prima che abbiate avuto il tempo di toccare i tasti di controllo della vostra astronave. 


AVVENTURA 


1) gioco di fantasia che prevede l'utilizzo in maniera logica di oggetti estremamente illogici. 


2) caricamento di un lunghissimo programma sullo ZX81. 
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di Colin Gooch 
trad. e adatt. 
di Andrea Violini 


Un simpatico passatempo per 
tutti gli Spectrum. 


uesto è uno dei più semplici giochi 

della grande famiglia dei solitari 
che, pur basando la sua soluzione su 
una semplice disposizione casuale di 
carte, saprà divertirvi e... farvi arrab- 
biare! 
Il computer visualizza 9 carte, che van- 
no eliminate a coppie (quando la som- 
ma di ogni coppia risulti 11) o a terne 
(nel caso di una “scala” con fante, don- 
na e re). 
Se non si può continuare, si può scam- 
biare casualmente la carta al centro. Se 
ancora non si può continuare, bisogna 
arrendersi. 
La prima cosa che bisogna pensare pri- 
ma di programmare un gioco di carte è 
la presentazione di queste ultime. Un 
mazzo di carte alte 9 spazi carattere e 
larghe 5 dà risultati veramente realisti- 
ci, ma restringe sfortunatamente il nu- 
mero di carte che possono essere mo- 
strate: un massimo di 2 file da 4 (5 
omettendo gli spazi fra una carta e l’al- 
tra). Questo gioco necessita di visualiz- 
zare contemporaneamente 9 carte, e 
così si è deciso di restringere le dimen- 
sioni di ogni carta a un blocco di 7 per 
5 spazi carattere. In questa maniera i 
semi non possono essere disposti come 
dovrebbero, ma il risultato è comuque 
più che accettabile. Le carte sono rap- 
presentate in memoria da 5 caratteri 
contenuti nella stringa P$, dove vengo- 
no mischiate e distribuite. 
I 5 caratteri identificano nell’ordine il 
“nome” della carta, il suo valore (2 ca- 
ratteri), il seme e il colore. 


Svolgimento del programma 


Il programma viene salvato con auto- 
start dalla linea 1760, a partire dalla 
quale vengono definiti gli UDG, per poi 
passare alle parti riguardanti il gioco 
vero e proprio. 

Le prime operazioni cominciano alla li- 
nea 1020, dove vengono definite le 
coordinate x e y relative alla stampa 
delle carte. Il ciclo principale, che ë ab- 
bastanza lungo, parte dalla linea 1040. 
Prima di tutto dà la possibilità di leggere 
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Descrizione delle variabili 


conta le carte distribuite 

carte giocate 

flag temporaneo 

usate per risparmiare memoria, 
consentendo al programma 

di girare anche su 16K. 

usata nei cicli FOR...NEXT 

valore totale delle carte da eliminare 
posizione sullo schermo delle carte 
valori derivati da Z$ 

formazione del mazzo 

carta stampata 

componenti di C$ 

mazzo 

carte distribuite 

la mossa del giocatore 

la scritta “undici” ingrandita 
istruzioni del gioco 


le istruzioni situate dalla linea 1600 in 
poi, e successivamente definisce alcune 
variabili (linea 1710), per poi preparare 
е mischiare il mazzo (linee 
1400-1490). 

La linea 1060 stampa una mano, usan- 
do la routine di stampa delle carte, pre- 
sente alla linea 1250. Viene così richie- 
sta al giocatore la mossa da eseguire. 
Le linee dalla 1090 alla 1210 controlla- 
no se la combinazione è valida. 

Se tutto è regolare, la mossa viene 


Undici 
versione per ZX Spectrum 


stampata e si ricomincia dall’inizio. 

Se l’inserimento non è valido, viene 
stampato un messaggio di errore, e si 
ripete l’input. In caso di esaurimento 
del mazzo, o di resa del giocatore, il 
programma aggiunge la routine di fine 
partita (linea 1510). 

Lo Spectrum tiene il conto delle carte 
distribuite mediante la stringa R$. Que- 
sta scelta si è resa necessaria per poter 
riconoscere il valore 10, che è rappre- 
sentato da un UDG, non identificabile 


1150 


dalla funzione SCREEN$. 

La routine di stampa divide ogni carta 
nelle sue varie componenti (attraverso 
lo slicing), utilizzandole per procedere 
alla visualizzazione, alle coordinate pre- 
cedentemente stabilite dalle funzioni 
c(x) e d(x), definite all'inizio del pro- 
gramma. 

Le figure (fante, donna e re) sono state 
definite dalle lettere J, Q e K. 


IF VAL Z$=LU THEN LET RES=LV: 


GO TO 1510 


16K/48K 1160 ma THEN GO SUB 1230: GO TO 1 
1020 LET LW=2: LET LV-l: LET LU=0: , 1170 IF LEN Z$=LV THEN LET FA=FA+LV 
DEF. ЕН-С(ХУ-УАҺ "61? (XeWAL "2" 1180 FOR N=LV TO LEN Z$: LET T=T+ 
OR X=VAL 6 ) +VAL VERE oee VAL R$(Z(N)): NEXT N: IF T<>11 
REVAL fa DR eater BORA XE AND T<>36 AND LEN Z$<>LV 
VAL "7")+VAL 724** (XeVAL. "4 THEN СО SUB 1230: GO ТО 1100 
OR УА 86 Lt БЕРТ НА 1190 IF Т=11 AND LEN Z$<>LW THEN 
VAL — +VAL “ӨТІ ној iod GO SUB 1230: LET T-LU: GO TO 11 
VALQUOUE(XSVALO ЧАЧ AND ХСМАБ "9" 00 
) 1200 IF T=36 AND LEN Z$<>3 THEN 
1030 RANDOMIZE : RANDOMIZE GO SUB 1230: LET T=LU: GO TO 11 
1040 GO SUB 1600: BORDER 4: PAPER 4: 00 
И s рт 1210 FOR N=LV ТО LEN Z$: LET C$=P$ (LV 
1050 REM STAMPA LA MANO DI TO 13] о LET РРО ТО); LET CD 
PARTENZA =CD+LV: IF CD=52 THEN GO TO 151 
1060 LET A=LV: FOR N=LV TO 44 STEP 5: бъ ср, mosse анама саны 
: LET X=FN C(A)+LW: LET Y=FN D(A LET. ы ОЛАРҒА ые 
)%7: PRINT АТ Ү,Х; PAPER 6; LET R$(Z(N))=C$ 
ENK 853 EMA АЕ 1220 LET Х-ЕМ C(Z(N)): LET Ү-ЕМ D (Z (N 
NEXT N )): GO SUB 1260: LET R$(Z(N))=C$ 
1070 LET A=LV: FOR N=LV TO 44 STEP 5: (LW TO 3): NEXT N: LET T=LU: 
LET X=FN C(A): LET Y=FN D(A): GO TO 1090 
LET C$=P$ (N TO N+4): LET R$(A)= 1230 INPUT АТ LU,LU; "INSERIMENTO NON 
C$(LW ТО 3): GO SUB 1260: LET A= VALIDO"'"INSERISCI ANCORA "; 
A+LV: NEXT N: LET CD-9 LINE Z$: IF Z$="" THEN GO TO ! 
1080 LET Р5-Р5(46 TO ) 230 
1090 PRINT AT 18,13; PAPER 5; INK LU; 1240 RETURN 
"CARTE";AT 19,13;" NEL ";AT 20,1 1250 REM STAMPA LA CARTA 
3; MAZZO SAT 2] 3:7 “АТ 21 1260 INK VAL C$(5): LET Е5=65 (4): 
,15;52-CD: INPUT AT LU,LU;"INSER LET F$-sC$ (LV) 
ISCI LA POSIZIONE DELLE"'"CARTE 1270 PAPER 7: FOR M=Y TO 8+12*(Y>10)+ 
DA ESTRARRE (0 RESA) "; LINE z$: 6%(Ү-8): PRINT AT M,X+LV; INK LU 
IF Z$="" THEN GO SUB 1230 M ": NEXT M: PRINT AT Y,X+L 
1100 IF LEN Z$>3 THEN СО SUB 1230: М; ЕЗ; АТ Y+6,X+5;F$ 
со то 1100 1280 PRINT АТ Y+LV,X+LV;ES;AT Y+5,X+5 
1110 DIM Z(LEN Z$): FOR N=LV TO LEN Z ; ES 
5: IF CODE Z$(N)<48 OR CODE Z$(N 1290 ТЕ (Е9-“А") + (Е9-"3") РЕЗЕ Је 
)>57 THEN СО SUB 1230: GO TO 11 $="9") THEN PRINT АТ Y+3,X+3;ES 
00 
1120 LET Z(N)=VAL Z$(N): NEXT N: IF 1300 ТЕ (Е5="2")+(Е5="3") THEN 
LEN Z$=LV AND Z$(LV)<>"9" PRINT AT Y+LW,X+3;E$;AT Y+4,X+3 
AND Z$(LV)<>"O" THEN PES 
GO SUB 1230: GO TO 1100 1310 IF (Е9-"4") +(Е5-"5") + (Е5+"8") + (Е 
1130 IF LEN Z$=LW THEN LET FA=LU: $="9")+(F$="A") THEN PRINT AT Y 
IF Z(LV)=Z(LW) THEN GO SUB 123 +LW,X+LW;E$;AT Y+LW,X+4;E$;AT Y+ 
0: GO TO 1100 4,X*LW;ES;AT Y+4,X+4;E$ 
1140 IF LEN Z$=3 THEN LET FA=LU: 1320 IF (Е5="6")+(Е5="7") THEN 
IF (Z(LV)=Z(LW))+(Z(LV)=Z(3))+( PRINT АТ Y+LV,X+LW;E$;AT Y+LV,X 
Z(LW)=Z(3)) THEN GO SUB 1230: *4;ES;AT Y+3,X+LW;E$ ;AT Y+3,X+4; 


GO TO 1100 


E$;AT Y+5,X+LW;E$;AT Y+5,X+4;ES$ 
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1330 


1340 


1350 


1360 


1370 


1380 


1390 
1400 
1410 


1420 


‘FOR N=LV ТО 60: 


IF (F$="7") THEN PRINT AT Y+3,X 
+3; ES 
IF (F$="8")+(FS$="9")+(FS$="A") 


THEN PRINT AT Y+]1,X+LW;ES;AT Y 
+1,X+4;ES;AT Y+5,X+LW;ES$;AT Y+5, 
Х+4; E$ 
ТЕ (Е5-"А") THEN PRINT АФ Ү+З,Х 
+LW;ES;AT Y+3,X+4;E$ 
IF F$="J" THEN PRINT AT Y+LV,X+ 
3;"{2SG3}";AT Y+LW,X+4;"{SG5}"; 
AT Y+3,X+4;"{SG5}";AT Y+4,X+LW;" 
{G5} {G8} {SG5}"; AT Y+5,X+LW;" 
{G1} {G3} {G2}" 

IF F$="Q" THEN PRINT AT Y+LV,X+ 
LW;"{G4}{SG3}{SG7}";AT Y+LW,X+LW 
;"{С65}{С68}{565}";АТ Y+3,X+LW;" 

{G5} (св) {SG5}"; АТ Y+4,X+LW;" 
{G5} {G4} (SG5) " ;AT Y+5,X+LW;" 
{G1} {G7} (G2) ";AT Y+6,X+3;"{G1} 
íGc2)" 

IF F$-"K" THEN PRINT AT Y+LV,X+ 
LW;"{SG5}{G5}{SG5}";AT Y+LW,X+LW 
s"{SG5}{SG8}";AT Y+3,X+LW;" 

{SG8}{SG5}";AT Y+4,X+LW;"{SG5} 
{SG8}";AT Y+5,X+LW;"{SG5}{G5} 
(56517 
ВЕТЈЕМ 
REM DEFINISCE IL МА770 
LET AS=""> ТЕТ D$z"A012023034045 
05606707808909А10Ј11012К13" 


PRINT AT 8,4; INK LV; PAPER 5;85 
;B$;B$;B$;B$;B$( ТО 3);АТ 10,4; 

FLASH LV; PAPER 7; INK ГИ; "STO 
PREPARANDO IL MAZZO";AT 12,4; 

FLASH LU; PAPER 5; INK LV;B$;B$ 
:В5;В5;В5;В5( ТО 3) 

FOR Q=LV ТО 39 STEP 3: FOR P=LV 

TO 4: LET COL=LU: IF P=LV OR P= 
3 THEN LET COL=LW 
LET А$=А$+05 (0 TO О+ПИ) +В5 (Р) + 
STR$ COL 
NEXT P: NEXT Q 
CLS PRINT AT 8,8; PAPER 5; 

INK LV;B$;B$;B$;B$( TO LW);AT 1 
0,8; PAPER 7; FLASH LV;"STO MISC 
HIANDO";AT 12,8; PAPER 5; INK LV 
; FLASH LU;B$;B$;B$;B$( ТО ІМ) 
LET A=LV+(5*(LV+ 
INT (RND*50))): IF n/LW=INT (n/L 
W) THEN LET А5-А5 (А ТО A+4)+A$( 


TO A-LV)+A$(A+5 ТО ): BEEP .01, 


N 
IF n/LW<>INT (n/LW) THEN 
LET А5=А5( TO A-LV)+AS(A+5 TO ) 
+А8 (A TO A+4): BEEP .01,N+10 
NEXT N: LET PS=AS: CLS : 
RETURN 
INPUT "PREMI ENTER PER CONTINUAR 
E"; LINE 75: BEEP .05,10: 
RETURN 
REM FINE DEL GIOCO 
PAPER 5: INK LV: FOR N=12 TO 21: 
PRINT AT N,LU; PAPER 5;" 

Wo 


NEXT N 
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1530 


1540 


1550 


1560 
1570 


1580 
1590 
1600 
1610 


1620 


1630 


IF RES THEN PRINT AT 13,LV;"SEI 
SFORTUNATO: LE CARTE NON"'TAB L 

V;"TI SONO FAVOREVOLI": FOR N=-1 
O TO -30 STEP -LV: BEEP ABS N/10 
O,N: NEXT N 

IF NOT RES THEN PRINT AT 13,5; 

BEN FATTO 
"SAT 14,LV; FLASH LU; "LA TUA PAZ 
IENZA E' RICOMPENSATA": FOR N=LV 
TO 3: FOR M=10 TO 40 STEP 3: 
BEEP .01,M: NEXT M: PAUSE 10: 
NEXT N 

PRINT-AT 16,3% "РПОТЧ" "ТАВ 564) С 
IOCARE ANCORA"''TAB 5; "2) SMETTER 

Е" 

PAUSE LU 

IF INKEY$="1" THEN BORDER 4: 
PAPER 4: INK LU: CLS : СО SUB 1 
710: GO SUB 1710: GO SUB 1460: 
GO SUB 1500: GO TO 1050 

IF INKEY$="2" THEN STOP 

PAUSE LU: GO TO 1570 

REM ISTRUZIONI 


LET T$=" {668} {SG8} {SG8} 
(568) (4568) (sc8) (4568) 
{SG8} {SG8} {SG8} {2SG8} 
{SG8} {SG8} (568) {sc8} (568) 
(528) (528) (568) 
(568) (568) (568) (568) (528) 
(568) (568) (528) (568) 


(568) {568} 1(25с8) (568) 
(568) 1568) {SsGc8}{G8} {3G8} 


(568) (3568) {1568} 
(528) (4568) (568) (4568) 
(568) D 


BRIGHT LV: BORDER LW: PAPER 6: 
INK LV: CLS + PRINT AT 7/17; 
BRIGHT LV;T$: FOR N-5 TO 13 
STEP 8: PRINT AT N,6; INK LU; 
PAPER 6; BRIGHT LV; FLASH LV;" 

STOLI T АФЕРЕЧОРИФӘМЕХ Шер 

PRINT #LU; BRIGHT LV; INK 7;"PER 
LP ISTRUZIONI PREMI "ОПИТ ЧАРТ 

RIMENTI UN TASTO QUALSIASI": 
PAUSE LU: IF INKEYS<>"1" 


THEN RETURN 


1640 


1650 


1660 


1665 


1670 
1680 
1690 


1700 


1710 
1720 


1730 
1740 
1750 
1760 
1770 


1780 


1790 


1800 
1810 
1820 


1830 
1840 


1850 
9990 


CLS : PRINT AT LV,LV; INK LU; "UN 
DICI - IL SOLITARIO: REGOLE": 
PAUSE 100 
DIM U$(7,30): LET US(LV)="SARANN 
O DISTRIBUITE 9 CARTE:": LET US 
LW)="DEVI ESTRARNE 2 ALLA VOLTA" 
2 LET U$(3)z"(O UNA SERIE DI ТО 
-K)": LET U$(4)="TOTALIZZANDO OG 
NI VOLTA 11": LET U$(5)="(ASSO=1 
)": LET U=5 
GO SUB 1690: GO SUB 1500: LET US 
(LV)="SE NON PUOI CONTINUARE DEV 
I": LET U$(LW)="SCAMBIARE (UNA V 
OLTA SOLA) LA": LET U$(3)="CARTA 
NUMERO 9 (POSTO CHE NON": LET U 
$(4)="SIA UNA FIGURA). SE LA SOR 
TE": LET US(5)="TI Е!" ANCORA NEM 
ICA, HAI PERSO": LET 05(6)-"Е DE 
VI ARRENDERTI...": LET U-6 
GO SUB 1690: GO SUB 1500: LET US$ 
(LV)="PER SCEGLIERE LE CARTE DA" 
: LET US(LW)-"TOGLIERE DEVI DIGI 
TARNE I": LET U$(3)="NUMERI DI S 
EGUITO. ESEMPIO:": LET 05(4)="56 
= TOLGO LE CARTE NUMERO 5": 
LET U$(5)="E 6. PER TOGLIERE UN 
A FAMIGLIA": LET 05(6)-"рІ J-Q-K 
SERVONO 3 NUMERI": LET 05(7)="( 
ES.: 714 = CARTE NUM. 7,1,4).": 
LET U=7 


GO SUB 1690: GO SUB 1500 
RETURN 
FOR N=LW ТО 17: PRINT АТ N,LV; 
РАРЕВ 5;" 
We NEXT N 
LET B=LV: FOR N=4 TO 3+(U*LW) 

STEP LW: FOR M=LV TO 30: 

PRINT AT М,М; PAPER 7; INK LV;" 
ж"; PRINT АТ N,M; PAPER 5;U$(B,M 
): BEEP .01,LU: NEXT M: LET B=B+ 
LV: NEXT N 
REM INIZIALIZZAZIONE 
LET A=LV: LET CD=LU: LET T=LU: 

LET FA=LU: LET RES=LU 
DIM R$(9,5) 

LET B$="BDCE" 

RETURN 

REM GRAFICI (UDG) 

BORDER 2: CLS : PRINT АТ 10,5; "Е 
ERMA IL REGISTRATORE": LET LU=0: 

LET LV-1: LET LW=2 
RESTORE 1800: FOR N-LU TO 4: 

FOR M-LU TO 7: BORDER M: BEEP . 
01,N 
READ A: РОКЕ USR CHR$ (97+N)+M,A 
: NEXT M: NEXT N: RUN 
DATA LU,94,82,82,82,82,94,LU 
DATA LU,16,56,124,254,124,56,16 
DATA LU,108,254,254,124,124,56,1 
6 
DATA 16,56,124,124,254,214,84,16 


DATA LU,56,56,16,214,254,214,16 
RUN 
SAVE "UNDICI" LINE 1760 


I QUADERNI 
JACKSON 


DI PERSONAL COMPUTER 


Quaderni Jackson: 
l'informatica a tutti i livelli, in 
una collana aperta, pratica, 
essenziale, aggiornata. 

Tutto quello che è 
importante sapere sui 
computer, la programmazione, 
i linguaggi, il software, le 
applicazioni e i nuovi sviluppi 
dell’informatica. 

Ogni mese, 2 volumi. 


Volumi gia pubblicati: 


Gianni Giaccaglini 

“Vivere col Personal Computer’ 
Paolo Bozzola 

“Dentro e fuori la scatola” 


Enrico Odetti 

"Ed è subito BASIC Vol. I" 
"Ed ë subito BASIC Vol. II” 
Paolo Capobussi 

e Marco Giacobazzi 

"A ciascuno il suo Personal" 
Fulvio Francesconi 

e Fernando Paterlini 

"To do or not to do" 

Gianni Giaccaglini 

"Strutturare il software" 
Enrico Odetti 

"Dizionarietto informatichese' 


In edicola, 
a sole lire 6.000. 


GRUPPO 
EDITORIAL 
JACKSON 


SAN FRANCISCO-LONDR A - MILANO 
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di Luciano Lotti 


Anche nello spazio profondo 
“mors tua vita mea”. 


iete al comando di un’astronave do- 
tata di un laser ad energia variabi- 
le. 
Il vostro schermo segnala la posizione 
di oggetti nello spazio senza fare distin- 
zione tra astronavi e meteoriti. 
La vostra missione è di distruggere la 
flotta nemica, composta da dieci incro- 
ciatori e una nave ammiraglia. 
Per annientare un incrociatore occorre 
un’energia di fuoco di 500 unità, men- 
tre per l'ammiraglia ne sono necessarie 
1000. 
Per le meteoriti è sufficiente una qua- 
lunque intensità superiore a 0. 
Se si attacca un’astronave avversaria 
con energia insufficiente, essa rispon- 
derà al fuoco. 
I colpi degli incrociatori, se vanno a se- 
gno, assorbono un po’ d’energia; sono 
invece letali quelli dell'ammiraglia. 
Dopo aver risposto al fuoco le astrona- 
vi si spostano. 
Avete anche a disposizione un radar. 
Quando l'addetto alla sala radar si 
metterà in comunicazione con voi ri- 
spondetegli “roger” ed otterrete il nu- 
mero di astronavi e di asteroidi presen- 
ti nella zona quadrata che cambierà со- 
lore sullo schermo. 
Per pilotare il radar si devono indicare 
le coordinate dellà casella che si vuole 
al centro del quadrato analizzato. 
Tenete sempre un occhio sull'energia 
disponibile perché, se termina, la parti- 
ta subisce la stessa sorte. 
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LE 8 BM MD BL D B 8 2 10M 20 «к BÀ < 


оде: 


„2 


Descrizione del programma 


Linee 
860-900 
910-980 


1005 
1015-1070 


1090 
1100 
1110-1140 
1150 
1300-1310 
1320-1330 
5005-5025 


Commento 

inizializzazione variabili 

riempimento matrice con i valori corrispondenti alle astro- 
navi ed agli asteroidi 

controlla se è terminata Гепегфа 

input relativo al radar, alle coordinate e all’energia di fuo- 
co e loro controllo 

fuoco su casella vuota 

colpiti degli asteroidi 

attaccato e distrutto incrociatore 

energia insufficiente alla distruzione 

colpita l'ammiraglia, ma con energia insufficiente 
ammiraglia distrutta 

reazione di un incrociatore 


5030-5040 l'incrociatore si sposta 
5500-5520 reazione dell'ammiraglia 
5525-5540 l’ammiraglia si sposta 
6000-6300 disegna il quadro 


6500-6999 radar 
7000-7120 disegna l’addetto al radar 
9000-9990 procedure di fine 


O SLITTA RI II CM TTI DIO Сл 


te 
ne а / 
ie 
( 1 рр settimanale 
di Sof litare. 5) cartal! 

Descrizione delle variabili ) 
I$ usataper l'input 
I$ usata per cancellare parti del video 
a contiene il numero della riga (trovato casualmente) in cui 

inserire un elemento in m() 
b come a per le colonne 
en energia rimasta 
ener energia di fuoco 
fla segnala alla routine di fine il messaggio da segnalare (3- 

missione non completata) 
4 variabile di FOR-NEXT usata in vari cicli 
h variabile di FOR-NEXT usata (con g) per la stampa dello 

schermo 
inc numero di incrociatori nella zona analizzata dal radar 
incr numero di incrociatori rimasti 
m() matrice contenente le astronavi e i meteoriti da visualizza- 

re sullo schermo 
met numero di meteoriti nella zona analizzata dal radar 
mo numero di mosse fatte 
x1 riga a cui si spara 
v1 colonna a cui si spara 

. 
Star war 


versione per ZX Spectrum 16K/48K 


860 LET 15-" 980 LET m(a,b)=3 
" 990 LET mo=0 
865 LET incr=10 1000 LET mo=mo+1 
870 BORDER 1: PAPER 1: INK 6: CLS 1005 IF en<=0 THEN GO TO 9000 
890 DIM m(9,9) 1010 GO SUB 6000 
900 LET en=8000 ТОЛЫ INPUT w. radar (s/n) 2": ТЕМЕ 19 
910 FOR g=1 TO 10 1020 IF 15="5" THEN GO SUB 6500: 
920 LET a=INT (RND*9+1): LET b=INT ( REM radar 
RND*9+1): IF m(a,b)<>0 THEN 1030 INPUT "coordinate di fuoco 2"; 18 
GO TO 920 
930 LET m(a,b)=1: NEXT д 1035 IF LEN i$<>2 THEN GO TO 1030 
940 FOR g=1 TO 10 1040 IF CODE i$(1)<49 OR CODE i$(1)>5 
950 LET a=INT (RND*9+1): LET b=INT ( 7 OR CODE i$(2)<97 OR CODE i$(2) 
RND*9+1): IF m(a,b)<>0 THEN >105 THEN GO TO 1030 
GO TO 950 1050 LET yl-VAL i$(1): LET x1=CODE 15 
960 LET m(a,b)=2: NEXT g (2) 296 
970 LET а-ІМТ (RND*9+1): LET b-INT ( 1060 INPUT "energia 2";епек 
RND*9+1): IF m(a,b)<>0 THEN 1070 IF епег>еп OR ener<=0 THEN 
GO TO 970 ; GO ТО 1060 
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1080 
1090 
1100 


1110 
1120 


1130 


1140 


1150 


1160 


1300 


1310 


1320 
1330 


5005 


5007 


5010 


LET en=en-ener 

IF m(yl,x1)=0 ТНЕМ СО ТО 1000 
IF m(yl,x1)=1 ТНЕМ PRINT АТ 18, 
0;" Hai colpito degli asteroidi 
Fin: FOR 4-1! TO 200: NEXT q: 
LET m(yl,x1)=0: со TO 1000 

IF m(yl,x1)«»2 THEN GO ТО 130 

0 

PRINT АТ 18,0;"Hailcoklpitovunouim 
crociatore " 

IF ener>=500 THEN LET m(yl,xl)- 
0: LET incrsincr-l: PRINT АТ 20, 
0;"rimangono ";incr;" incociator 
i" 

IF ener>=500 THEN ТЕ incr«-0 
THEN LET fla-2: FOR 4-! ТО 150 
: NEXT g: GO TO 9500 

IF ener<500 THEN PRINT АТ 20,0; 
"ma con energia insufficiente": 
FOR g-1 TO 60: NEXT g: GO TO 50 


00 

FOR g=1 TO 300: NEXT 4: GO TO 10 
00 

PRINT AT 18,0;"Hai colpito l'amm 
iraglia " 


IF ener<1000 THEN PRINT АТ 20,0 
; "па con energia insufficiente": 
FOR g=1 TO 60: NEXT g: GO TO 55 
00 

PRINT AT 20,0;" HAI COMPLETATO L 
A MISSIONE " 

FOR g=1 TO 300: NEXT g: LET fla= 
1: GO TO 9500 

GO SUB 7000: PRINT АТ 14,18;" 
АТБАВМЕСТИМАТОРЫ; 20" missili- 
ПРАТИ 182" rotta ат" АТ. 1 
7:202 "collisione! 

FOR g=1 TO 30: ВЕЕР .1,g: NEXT 4 


IF RND<.65 THEN PAPER 7: CLS : 
PAUSE 3: PAPER 0: CLS : FOR 4-1 
ТО 70: NEXT g: LET еп=еп- (500+ 

INT (100*RND)): GO TO 1000 
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5020 
5025 
5030 
5040 


5500 


5505 


5510 


5520 
5525 
5530 
5540 
5999 
6000 
6010 
6030 
6040 
6050 
6060 


6070 
6080 


6090 


6100 
6300 
6500 
6510 
6520 
6530 


6531 


PRINT AT 20,0;"SIAMO STATI MANCA 


TI ! DANNI 0 n 

FOR g-1 ТО 300: NEXT 4 

LET а-ІМТ (RND*9+1): LET b=INT | 
RND*9+1): IF m(a,b)<>0 THEN 

GO TO 5030 
LET п(у!,х1)-0: 
GO TO 1000 

GO SUB 7000: PRINT AT 14,18;" 
ALLARME КИ Дт (15,205 Imissild i 
пе А T6 ИВ коввасал РАТ 
7 21 сол Ил зтопе" 


LET m(a,b)=2: 


FOR g=1 ТО 30: BEEP .1,4: NEXT 4 
TE ВМРО ВО THEN | PAPER 7: CLS 2 
PAUSE 3: PAPER 0: CLS : FOR 4-1 
ТО 40: NEXT g: LET Е1а-3: 

GO TO 9500 

PRINT AT 20,0;" SIAMO STATI MANC 
ATI ! DANNI 0": 


FOR g=1 TO 300: NEXT g 
LET a=INT (RND*9+1): LET b=INT ( 
RND*9+1): IF m(a,b)«»0 THEN 


GO TO 5530 

LET m(yl,x1)20: LET m(a,b)=3: 
GO TO 1000 

STOP 

REM {2568} DRAW comandi{2SG8} 
PAPER l: INK 6: BORDER l: CLS 


FOR g=16 TO 88 STEP 8: 
9: DRAW 0,-72: NEXT g 
FOR g=159. TO 87 STEP -8: 
‚8: DRAW 72,0: NEXT g 
PRINT AT 1,2;"abcdefghi" 
FOR g=] TO 9: PRINT AT 9+1,1;9: 
FOR h=1 TO 9: IF m(g,h)<>0 
THEN PRINT AT g+t1,h+1;"{sG8}" 
NEXT h: NEXT g 
PRINT АТ 12,1; "епегдіа";АТ 14,1; 
"(7SG8)";AT 14,7-LEN STR$ еп; 
OVER 1; еп 


PRINT АТ 12,9; "повве";АТ 14,9; " 
{5SG8}";AT 14,13-LEN STR$ mo; 


PLOT g,15 


PLOT 16 


OVER l;mo 

PLOT 8,48: DRAW 112,0: DRAW 0,11 

6 

RETURN 

REM {2SG8} RADAR {2SG8} 

INPUT "coordinate (riga/colonna) 
2"; LINE 15 


IF LEN i$<>2 THEN GO TO 6510 

IF CODE i$(1)<50 OR CODE i$(1)>5 
6 THEN PRINT AT 21,7;" RIGA I 
NESATTA ": GO TO 6510 

IF CODE 15(2)<98 OR CODE i$(2)»1 
04 THEN PRINT АТ 21,7; "COLONNA 
INESATTA ": GO TO 6510 


; 6595 PRINT AT 14,18;" Nel settore " 
И = PRINT АТ 75,19;"сі sono: " 
——— — € ал ше и 6597 PRINT AT 16,19;іпс;" astronav"+( 
"i" AND inc<>1)+("e" AND inc=1 
)+" e";AT 17,19;met;" asteroid"+ 
("e" AND met=1)+("i" AND met 
<>1) 

6790 INPUT "ricevuto ?";i$ 

6800 IF i$<>"roger" THEN СО TO 659 


5 
6810 FOR g=0 TO 20: PRINT AT g,16;" 
": NEXT ча 
6540 LET yl=VAL i$(1): LET x1=CODE 15 
(2)-96 
6550 LET inc=0: LET met=0 6999 RETURN 


6560 FOR g=-1 ТО 1: FOR h=-1 TO 1: 
PRINT АТ (1+у1+һ), (1+х1+9); 
BRIGHT 1; PAPER 3; OVER 1;" "; 
LET met=met+(m(yl+h,x1+g)=1): 
LET inc=inc+(m(y1+h,x1+g)=2 
OR m(yl+h,x1+g)=3): NEXT h: 
NEXT g 


7000 REM (2SG8) equipaggio{2SG8} 

7001 PLOT 153,175: DRAW 0,-100: 
DRAW 102,0: DRAW 0,100: DRAW -1 
02,0 

7005 PRINT AT 1,23;"(55603)" 

7010 PRINT AT 2,21;" {SG2}{55G8} 


{SG1}" 
7020 PRINT AT 3,21;" {56G3}{G7}{sG8}" 
7030 PRINT AT 4,22;" (568)" 
6570 СО SUB 7000: ; 7041 PRINT AT 6,28;"{G5}" 
6580 PRINT AT 14,18;"Qui sala radar" 7050 PLOT 180,152: DRAW 0,-24: DRAW 5 
6582 PRINT AT 15,858 mi ricevete?" АЕБ DRAW пето DRAW 5;- 10: 
6585 INPUT 15 DRAW 10,-1 
6590 IF i$<>"roger" ТНЕМ GO ТО 658 
0 


7060 DRAW 10,1: DRAW 8,13 
7070 PLOT 227,128: DRAW -2,-38: 
DRAW -14,-13: DRAW -15,-1: 
DRAW -2,17 
7080 PLOT 199,128: DRAW -2,-10: 
DRAW 2,-1: PLOT 202,118: DRAW - 
1; 2 
7090 PLOT 208,136: DRAW 3,0: PLOT 209 


7091 PLOT 190,136: DRAW 3,0: PLOT 191 
7110 PLOT 225,90: DRAW 27,-7: DRAW 3, 


7111 PLOT 193,89: DRAW -33,-7: DRAW - 


7112 PLOT 194,104: DRAW 10,0,1.2: 
DRAW - 1070, 1 2 

7120 RETURN 

9000 PRINT " Hai esaurito l'erner 
gia prima di completare lamis 
sione ": СО ТО 9990 

9500 IF fla=3 THEN GO ТО 9550 


9505 CLS : PRINT '" HAI COMPLETATO L 
A MISSIONE " 

9510 PRINT '" IN ";mo;" MOSS 
E" 


9530 60! ТО 9990 

9550 PRINT '"SEI STATO COLPITO PRIMA 
DI COM- PLETARE LA MISSIONE" 

9990 INPUT "UN ALTRA PARTITA (S/N)";i 
$: IF i$="s" THEN RUN 


SUPERSINC® 7/85 . 59 


| Шин ШЕШ ШЕШ ШЕШ ШЕШ БҰНЫ ШЕШ БҰНЫ ШЫН БЫНЫ ШШ БҰНЫ — 


di Christopher Gibbs 
trad. e adatt. 
di Andrea Violini 


Un programma breve, veloce, di- 
vertente e impegnativo. 
Ріш di cosi... 


L° scopo del gioco è quello di far 
saltare un omino attraverso le aper- 
ture presenti nelle piattaforme scorre- 
voli, per raggiungere gli anelli posti in 
cima allo schermo. 

L’omino viene controllato per mezzo 
dei tasti 5 e 8 (per muoverlo rispettiva- 
mente a sinistra e a destra) e dello 0 
(per saltare). Se durante un salto l’omi- 


[ГЕРЕН T ENNIO KG ЫЫЫ SIN 


ДР | 


no manca l’apertura e sbatte la testa D ігі del 
contro la piattaforma soprastante, ri- часаапоте перона 
marrà stordito per un attimo, rischiando 
di cadere, attraverso aperture successi- Linee Commento 
ve, sempre рій іп basso. 30-100 routine principale 
Sono inclusi 3 livelli di difficoltà e i re- 200-250 routine per la caduta 
cord vengono registrati con il nome del 300-420 routine per la morte, stima del punteggio, aggiornamento 
giocatore autore della performance della tabella dei record 
(non conosciamo, al momento, punteggi 1000-1080 routine per il salto 
superiori al 93%). Il punteggio è funzio- 1100-1120 raggiungimento degli anelli 
ne del tempo impiegato per raggiunge- 8000-8110 presentazione e istruzioni 
re gli anelli; bisognerà essere quindi ca- 9000-9210 grafici (UDG) 
paci di saltare a colpo sicuro nel piü 9500-9565 disposizione casuale delle piattaforme 
breve tempo possibile. Attenti ai ber- 9600-9650 preparazione dello schermo, inizio del gioco 
noccoli! 
Log hop 10 GO SUB 8000 
versione per ZX Spectrum 16K/48K 12 LET SCORE-1000: LET dead-0 
13 LET game-! 
15 LET x=19: LET y=10 
2 POKE 23658,8 20 LET e$-"A" 
3 PAPER 0: INK 7: BORDER 0: CLS 30 FOR m=3] TO 1 STEP -1 
5 LET HOLE-0: LET game-0: DIM 2(10 31 IF SCORE»! THEN LET SCORE-SCORE 


): DIM £$(10,3) 
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-2 


32 


40 


43 
45 


46 


50 
53 
55 


57 
60 


85 


86 


90 

95 
100 
200 
205 
210 
220 


230 


240 


250 


290 
300 


305 
310 
320 


IF dead>0 THEN LET dead=dead-1: 
ВЕЕР .05- FO 
PRINT INK 6; АТ 5,0;a$(32-m TO ) 


га о (TO 32-10) AT- 10,0% INK ЭФБО( 
m то) 5 ( поп) AT 150: INKE A; 
со 032m то се (то 232 m); ТМК 7 
дт 2020 га (m то”) aS то m) 


IF dead>0 THEN GO ТО 55 
IF m/2=INT (m/2) THEN LET ез-"В 
IF m/3=INT (m/3) THEN LET ез-"К 


PRENT “INR OSAT xy dp M 
IF m/3=INT (m/3) THEN GO TO 57 
ТЕ SCREENS (x+1,y+1)=" " THEN 
GO SUB 200 

IF dead>0 THEN GO TO 100 

LET y=y+(INKEY$="8")-(INKEY$="5" 


IF y«0 THEN LET y=29: PRINT 
AT. хуни 


IF y»29 THEN LET y-0: PRINT 
АТ 29:7 M 

IF ІМКЕҮ5-"0" THEN GO SUB 1000 
LET e$="A" 


INK 7: NEXT m: GO TO 30 

REM CADUTA 

INK 6 

IF x-19 THEN GO TO 300 

FOR п=х+1 TO x+5: PRINT AT п,у+! 
НА n- l yte me) BEEPS 05 ,20 
-п: NEXT п 

LET е$="Е": LET х=п-1: PRINT 

AT х,у+1;е$: LET dead=D*2 

IF SCREENS (x+1,y+1)=" " THEN 
GO TO 24 0 

RETURN 

REM MORTE 

PRINT AT 19,y*1;"H": PAUSE 2: 
PRINT AT 20,y+1;"H";AT 19,у+1;" 
" 


BEEP .1,0 

PRINT AT 20,у+1;" " 

FOR п=у+1 TO 30: PRINT INK 5; 

AT 21,n;"E"; INK 6;"E";AT 21,n; 
INK 5;"F": BEEP .05,30-n: 


321 
325 


330 


340 


345 
350 


360 
370 


380 
400 


410 


420 
1000 
1005 
1007 


1010 


1020 


1025 
1030 
1050 


1055 
1060 
1070 


1072 
1075 
1080 
1100 
1110 


Mj 


1120 
8010 


NEXT n: PRINT INK 5; BRIGHT 1; 
AT 21,31; INN буна" 
FOR п-! TO 10: NEXT n: LET SCORE 
-0: GO TO 330 
LET SCORE-INT (100*(SCORE/1000)) 


PRINT AT 2,10;" 
тр" TOAT AVO 
"АТ 3 О PUNTI=";SCORe; "+" 


PRINT АТ 17,3; FLASH 1; "PREMI EN 

TER PER CONTINUARE": IF CODE 
INKEY$<>13 THEN GO TO 340 

CLS 

FOR n=l TO 10: IF ЅСОВЕ>2 (п) 
THEN GO TO 400 

NEXT n 

PRINT AT 0,4;"I GRANDI DI OGGI": 
FOR п-! ТО 9%- PRINT АТ n*2,6;n; 
es ati Mo ES (mire MD ZADY: 
NEXT n: PRINT АТ.20,5; 10; = "Wf 
SERO Uo sz 10) 

GO TO 9515 

FOR т=10 TO n+l STEP -1: LET z(m 
)=2 (0-1) 5 БЕТ f$ (ш)<Е5 (mal) 
NEXT m: LET z(n)=SCORE 

INPUT "INSERISCI LE TUE INIZIALI 

(MAX 3) ";g$: IF LEN 45>3 

THEN СО TO 410 

LET f$(n)sg$: GO TO 370 

REM SALTO 

INK 6 

IF x-4 AND у+1=ро THEN СО TO 11 
00 

IF SCREENS (x-4,y+1)="©" THEN 
LET dead=D*2: GO TO 1050 

PRINTS ATP Жуу" С 13 BEBPWLN 102 
FOR п=х-1 TO x-5 STEP -1: 

PRINT АТ пут; "ВП; АТ пау Ы 
"; BEEP .05,20-n: NEXT п 

LET х=п+1 

RETURN 

PRINT АТ х,у+ 1; "С": PAUSE 2: 

FOR п-х-1 ТО х-3 STEP -1: 

PRINT ЗАТ ср, ҮРІП ТОТ АТ ТЕЙ УІН 
"; ВЕЕР .05,20-п: МЕХТ п 

PRINT INK 7;AT n+1,y+1;"D" 

BEEP .1,10 ТА 

FOR К=п+2 TO x: PRINT AT-k,ytl;" 

H";AT k-t,y+1;" ": ВЕЕР .05,20-k 
: NEXT k 

PRINT INK 6;AT K-1,Y+1;"E" 

LET e$="E" Ne 

RETURN ^ 

REM FINE 

PRINT AT х,у+1; "С": PAUSE 2: 

FOR п=х-1 TO x-3 STEP -1: 

PRINT AT n,y+l;"D";AT n4l,y*1;" 
": BEEP .05,20-n: NEXT n 

PRINT АТ 0,РО;)"ЕТФАТ ТЕРОР Чо": 
FOR МАТ TO 10: BEEP ¿l N: U 7 
NEXT N: FOR N=20 ТО 0 STEP -2: 
ВЕЕР .1,М: МЕХТ М 


RATES 


GO TO 325 
LET m$="© eee ©©© © © ©©© © 
een 
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8012 LET ng="© © © © © © © © © 
өп 
8014 LET oSz"e © © © e өс 000 © © © 
сен 
8016 ПЕТ р5-"9 йа ұлыс © © © © © 
" 
8017 LET а5-"еео ooo ooo © © eee o 
"Ç" 
8020 FOR m=27 TO 2 STEP -1 
8025 ВЕЕР .01,п 
8030 PRINT INK 2;AT 4,m;m$( ТО 28-m) 9546 IF b=2 THEN LET b$(n)="©": 
; INK 3;AT 5,m;n$( TO 28-m); GO TO 9551 
INK 4;AT 6,m;o$( TO 28-m); 9547 IF b-3 THEN LET c$(n)s"9"; 
INK 5;AT 7,m;p$( TO 28-m); GO TO 9551 
INK 6;AT 8,m;q$( TO 28-m) 9548 IE.bsl THEN LET a$(n)=" " 
8040 PAUSE 2: NEXT m 9549 IF b-2 THEN LET b$(n)=" " 
8045 FOR 4-1 TO 3 9550 IF b-3 THEN LET c$(n)=" " 
8050 FOR п=1 TO 6: INK n: PRINT AT 4, 9551 NEXT n 
ООДА ТУО ПУАТ 6,295 ATE], 2% 9552 ТЕ НОБЕЕОЕ THEN “LET AS у v. 
р8; АТ 8,2;45 GET BSI) =Y r ъвтнсб( 1) е" m 
8055 BEEP .01,п410%(1%2): NEXT n 9553 LET HOLE=0 
8056 NEXT j 9555 IF game=l THEN CLS : СО TO 9600 
8060 PRINT АТ 12,6; INK 7; BRIGHT 1;" 
DI C.M.GIBBS 1983";АТ 13,0; "ТВА 9560 NEXT b 
D. E ADATT. DI A.VIOLINI 1984" 9565 Ет dopo чоозорсосософофросавос 
8070 PAUSE 100 сососесс! Г 
АТ 13,0;S$ МІ UN ТА5ТО "; PAUSE 0 
8090 REM REGOLE 9575 CLS та 
8100 PRINT АТ 11,2; INK 7; BRIGHT 1;" 9600 LET Z$-"F": FOR M=31 TO 1 STEP - 
5: SINISTRA";AT 13,2;"8: DESTRA" 1 
ЈАТ 15,2;"0: SALTO" ; АТ 17,0; "ЕУІ 9610 PRINT INK 6;AT 5,М;а5( ТО 32-М) 
ТА I TRABOCCHETTI,"'"RAGGIUNGI С ЈАТ 10,0; INK 3;b$(m TO );AT 15, 
LI ANELLI"'"E NON ЕАВТІ АВВАТТЕК M; INK 4;c$( TO 32-M); INK 7; 
въ АТ 20,0;dš (m TO ) 
8110 PRINT FLASH 1;АТ 21,5;"ATTENDI 9615 PRINT INK 5;AT 21,0;2$ 
UN ATTIMO" 9616 LET Z$=Z$+"E" 
9000 REM UDG 9620 NEXT M 
9010 FOR 1=1 TO 11: FOR n=0 TO 7 9625 PRINT AT 19,11;"D" 
9015 READ а: POKE USR CHR$ (143+i)+n, 9630 LET po=2+INT (RND*27): PRINT 
a: NEXT n: NEXT i AT 0,po; INK 6; BRIGHT 1;"G" 
9020 DATA 28,28,8,63,40,14,82,35 9640 INPUT "INSERISCI DIFFICOLTA'(1/2 
9040 DATA 28,28,9,254,24,232,136,12 Z3) "D 
9060 DATA 68,186,185,82,60,199,66,36 9645 IF d<>INT d OR d<1 OR d>3 
9080 DATA 28,28,8,62,85,85,20,119 THEN GO TO 9640 
9100 DATA 0,6,2,18,18,210,222,254 9650 GO TO 12 


9115 DATA 0,0,0,12,24,40,196,3 

9130 DATA 66,66,66,66,231,165,231,0 
9150 DATA 195,36,24,146,254,16,56,56 
9170 DATA 66,66,66,66,231,231,231,130 


9190 DATA 186,186,254,16,56,68,68,198 


9210: РАТА: 28728 25578, 15 241 070 

9500 REM STRINGHE 

9510 DIM а5(31): DIM b$(31): DIM c$(3 
Ту: DIM 45 (31) 

9515 IF game-1 THEN LET b=1+INT ( 
RND*3): GO TO 9520 

9517 FOR b=1 TO 3 

9520 FOR n=1 TO 31 

9530 LET r=INT (RND*6) 

9540 IF r=2 THEN LET HOLE=1: 
GO SUB 9548 

9545 ТЕ Б-1 THEN "БЕТ aS (nyz"e". 
со то 9551 
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di Sean Ghisoni 


La memoria visiva ë una dote 
spesso non sufficientemente al- 
lenata... 


uesto programma si rifà ad un clas- 
О; діосо didattico di memoria visi- 
va. ll computer distribuisce in modo ca- 
suale su di una scacchiera 16 coppie di 
carte uguali, che vengono poi coperte: 
i giocatori (o il giocatore) dovranno sco- 
prire le carte a due a due, cercando di 
indovinare le coppie uguali; in caso di 
esito positivo guadagneranno un punto, 
mantenendo il controllo del gioco, e le 
carte rimarranno scoperte; in caso con- 
trario il turno cambierà e le carte ver- 
ranno ricoperte. Il programma è stato 
pensato per poter permettere a chiun- 
que di giocare, dai 6 anni in avanti, com- 
presi coloro che non hanno dimestichez- 
za con il computer e la sua tastiera. Per 
questo il programma comprende un 
buon numero di sicure, atte ad impedire 
un suo blocco involontario; per lo stesso 
motivo si è preferito usare i numeri sulla 
scacchiera sia per il riferimento alle 
coordinate verticali sia per quelle oriz- 
zontali. 
In questo modo la ricerca dei tasti da 
premere è facilitata dalla loro disposi- 
zione, mentre si era dimostrata in pre- 
cedenza più difficoltosa la ricerca di let- 
tere da parte di chi non aveva una suffi- 
ciente conoscenza della tastiera. Il mec- 
canismo del gioco è facile da apprende- 
re e le istruzioni contenute nel program- 
ma mettono in grado chiunque di poter- 
lo usare. Durante lo svolgimento della 
partita il computer stesso indicherà il 
turno di gioco, la coordinata che va in- 
trodotta ed eventuali errori (nel caso le 
coordinate si riferiscano a carte già sco- 
perte). Da prove fatte si è verificato che 
anche bambini di 6/7 anni non hanno 
avuto difficoltà nella comprensione del 
gioco, mentre per loro è stato più diffici- 
le capire la dinamica del meccanismo 
di utilizzazione delle coordinate per de- 
terminare la posizione della carta scel- 
ta; tale problema, in ogni caso, si risolve 
dopo mezz'ora od un ora al massimo di 
gioco assistito da un adulto e permette 
tra l'altro al bambino di apprendere, sia 
pur in modo empirico, ma sicuramente 


piacevole, il concetto di coordinate car- 
tesiane. Anche il gradimento è stato 
buono, sia da parte di bambini che di 
adulti, pur non essendo un gioco di mo- 
vimento. Alcuni si sono peró lamentati 
che il tempo a disposizione per memo- 
rizzare le carte, 10 secondi circa a parti- 
re da quando il computer ha terminato 
la disposizione delle stesse, ë troppo po- 
co; a tale proposito si precisa che que- 
sta e già una concessione extra, in quan- 
to la versione da tavolo originale preve- 
de che si inizi il gioco con tutte le carte 
coperte e che la memorizzazione avven- 
ga ricordando il soggetto e la posizione 
delle coppie spaiate che vengono girate 
durante la partita stessa. In ogni caso 
non é difficile adattare questo tempo ai 
propri gusti personali: per aumentarlo 


basta infatti intervenire sulla linea 
8100, allungando il ciclo FOR...NEXT, 
oppure aumentando la durata dei BEEP 
alla linea 8120; va da sé che per dimi- 
nuire il tempo si procederà a diminuire 
tali valori. E stato scelto un ciclo FOR- 
...NEXT in sostituzione a PAUSE x per 
impedire che la pressione casuale di un 
tasto accorciasse prematuramente il 
tempo a disposizione. 

Chi vorrà invece iniziare senza la visua- 
lizzazione iniziale delle carte non dovrà 
far altro che eliminare le linee 8110, 
8120 e 8130 e sostituire la linea 8080 
con la seguente: 8080 PRINT AT 
ol,v1;PAPER 0;CHR$ 143. In questo 
modo, all'inizio il computer visualizzerà 
sulla scacchiera dei quadratini neri, an- 
ziché le carte. Va ancora detto che, se 
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поп piacessero tutti o in parte i caratteri 
grafici attualmente inseriti nel program- 
ma, essi potranno essere cambiati, so- 
stituendo a piacere le linee DATA pre- 
senti, escluse la 9260 e la 9270, che 
servono per il disegno della scacchie- 
ra. 

Una volta copiato il programma si darà 
un RUN 2500 per la registrazione su 
nastro dello stesso e relativa verifica. 
Come noterete, in questa linea vi è an- 
che un comando di autostart alla linea 
8500; pertanto, se a questo punto vor- 
rete iniziare subito a giocare, dovrete 
dare un RUN 8500, cosa che non sarà 
più necessaria quando il programma 
verrà caricato da nastro. Ora non rima- 
ne altro da fare che augurarvi buon la- 
voro, e perché no, buon divertimento! 


versione per ZX Spectrum 16K/48K 


990 REM ЖЖЖЖ ЖЖЖ 


* МЕМОСАМЕ * 

х 984 sean ghisoni * 

K k k k k k k k k k k k k k k k k k kk 
995 REM 
998 REM **SVOLGIMENTO PARTITA** 
999 REM [23G3] 


1000 LET 42-0: LET cf-0: LET pl=0: 
LET p2=0: LET p3=0: LET p4=0: 


LET nm=0 
1010 PRINT AT 17,24; "GIOCA: " 
1020 FOR 1=1 TO ng 
1025 LET p=0 


1040 IF i=] THEN LET xS$-b$: LET p-pl 


1050 
1060 
1070 
1080 
085 
1090 
1100 
WEO 


1120 


1130 
1150 


1160 
tTO 
1180 


1190 


IF i-2 THEN LET x$-c$: LET p-p2 
IF i-3 THEN LET x$=d$: LET p-p3 
IF i-4 THEN LET х5-е5: LET p-p4 
FOR n=1 TO 2 

IF cf-18 THEN GO ТО 2000 

PRINT AT 18,24;" s 
PRINT BRIGHT 1;АТ 18,24;х5 
PRINT  ЕПАЗН 1: АТ 20,24;"C. ORIZ. 
зи 

IF INKEY$<>"" THEN СО ТО 1120 


IF INKEYS="" ТНЕМ со TO 1130 
LET j$=INKEY$: IF CODE j$«49 

OR CODE j$>54 THEN GO TO 1120 
LET o-VAL j$ 

LET ol-o*3-41 

PRINTSBRIGHT IF (OVER HAT. ОТА; 


PRINT FLASH !;AT 20,24;"C.VERT. 
2" 
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1200 


1210 
1220 


1240 
1250 
1260 
1270 


1280 


1290 


1300 
1310 
1320 


1330 


1340 


1350 
1360 
1370 
1380 
1390 
1998 
1999 
2000 


ІЕ ІМКЕҮ5<>"" ТНЕМ СО ТО 1200 


IF INKEY$="" THEN СО TO 1210 
LET 15-ІМКЕҮ5: IF CODE 35<49 

OR CODE j$>54 THEN GO ТО 1200 
LET v=VAL j$ 

LET vl=v*3 

PRINT OVER 1;АТ 01,1;" " 

IF ATTR (01,v1)<>56 THEN 

BEEP 1,1: GO- ТО 1110 

LET g=c(o,v): LET car=g-144: 

IF g>151 THEN LET car=car-8 
ВЕЕР .05,0: PRINT BRIGHT 1; 

INK 9; PAPER саг? АТ о1-Т,у12" 
КАТИОН I ДЕНЕС gs ADEN 
+1,v1;" " 

IF ng=1 AND n-2 THEN LET nm=nm+ 
1 

IF n=] THEN 
2 БЕТ у2-м2 
ІЕ п-2 ТНЕМ 
: LET v3=v1 
ТЕ n=2 AND 41-42 THEN LET р=р+1 
SUPRINTÜSATUE*3LH17305p: LET cfzcf 
+1: GO TO 1080 

IF n=2 AND gl<>g2 THEN BEEP 1 
„515: PRINT. AT 02-l,v22:" T Ша 
ATOZ IVA SST AT о2+1,у2;' ТЕ 
АТ (03-1,v3;" ЖАТ 03,93; "S. S"; 
АТ o3+1,v3;" Т" 


LET 41-4: LET о2-о1 


LET 42-4: LET о3-о1 


ТЕ 1=1 THEN LET pl=p 
IF i=2 THEN LET р2-р 
IF i=3 THEN LET p3=p 


IF i=4 THEN LET p4=p 
NEXT n: NEXT i: GO TO 1020 
REM **FINALE** 

REM (1063) 

FOR b=] TO 25 


2010 
2020 
2030 
2040 


2050 
2060 


2070 


2080 


2085 


2090 
2100 


2 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 


2200 
2210 


2220 
2230 
2240 


2250 


2260 
2270 


2500 


6998 
6999 
7000 


7010 
7020 


7030 
7040 


7050 


7060 
7070 
7080 
7090 
7100 
7110 
TEZO 
7130 


BEEP .05,ІМТ (RND*20)+30 
NEXT b 

FOR n=3 ТО 20 

PRINT АШ uni 3 

" 


NEXT n 

IF ng=] THEN 
CHIUSO" 

IF пд-! THEN 
PARTITA IN:" 
IF ng=1! THEN 
MOSSE": FOR n=1 TO 
0-5: BEEP .05,n+5: NEXT n 
FOR п=1: TO 30: BEEP .05,n-5: 
BEEP .05,n+5: NEXT n 

FOR n=3 TO 20 

PRINT AT n,3;" 

" 


PRINT AT 10,7; "НАТ 
PRINT AT 12,5;"LA 


PRINT AT 14,8;nm;" 
НО: BEER -05 


NEXT n 

PRINT АТ 8,8;"UN'ALTRA" 

PRINT: AT. 10:8:ЛРАВТТТА>М 

PRINT АТ 12,6;"SE SI PREMI: " 
PRINT? FLASH ТАТ ИЗТ" 
PRINT AT 14,5; "ИМ ALTRO TASTO" 
PRINT AT 15,6;"PER SMETTERE" 
IF ІМКЕҮ5-"" THEN GO TO 2180 
ТЕ INKEY$<>"s" THEN CLS : 


PRINT AT 10,15; "ОК": FOR n=0 
ТО» 50: ВЕЕР 02 „по МЕХ ТУ: 
5ТОР 


FOR n=3 ТО 20 
PRINT AT п,3;" 
" 


NEXT n 
PRINT AT 10,7;"CAMBIANO I" 
PRINT АТ 11,4;"GIOCATORI (S/N) ?" 


IF ІМКЕҮ5<>"" THEN GO ТО 2250 


IF INKEY$="" THEN СО TO 2260 

GO ТО 8000-(1000 AND INKEY$-"s") 
SAVE "MEMOGAME" LINE 8500: 
МЕВТЕХ "1: STOP 

REM **INIZIO PARTITA** 

REM {18G3} 

CLS SU PRINT АТ 20,0:"ОПАКНТТ СТОС 
ATORI ? (саа Та 14: y" 

INPUT ;ng 


IF п9<1 OR п4>4 THEN СО ТО 7010 


FOR 1=1 TO ng 


PRINT AT 20,0;" NOME DEL GIOCA’ 


TORE NUMERO :";i 

INPUT LINE g$: IF LEN 45>8 
THEN GO SUB 7050 

IF i=] THEN LET b$=g$ 

IF i-2 THEN LET с5-45 

IF i=3 THEN LET 45-45 

IF i-4 THEN LET e$=g$ 

BEEP .05,0: PRINT АТ 1%3,24;45 


PRINT AT i*3+1,24;"PUNTI 0" 
NEXT i А 
PRINT АТУ20. 0: 


7200 
7210 
7220 
7230 
7240 
7250 
7260 
7270 
7280 
7290 
7300 
7310 
7320 
7330 
7340 
7350 
7998 
7999 
8000 
8005 
8010 
8020 
8025 
8030 
8040 
8050 
8060 


8065 
8070 


8080 


8090 
8100 
8110 
8120 
8130 
8140 
8150 


8160 


8170 


PRINT АТ 47 2 gu A БИ уби: 

LET 2-1 

FOR п-4 ТО 19 STEP 3 

PRINT Арп, 1; 2 

LET 2=2+1 

NEXT n 

PLOT: 237152 

DRAW 145,0 

DRAW 0,-145 

DRAW -145,0 

DRAW 0,145 

PLOT 22, 153 

DRAW 147,0 

DRAW 0,-147 

DRAW -147,0 

DRAW 0,147 

REM **POSIZIONE CARTE** 

REM 11963) 

DIM с(6,6) 

RANDOMIZE 0 

FOR п-1 то 2: 

LET 4-144 

i=l то 18 

LET o=1+INT (RND*6) 

LET v=1+INT (RND*6) 

LET ol=0*3+1: LET vl=v*3 

IF ATTR (01,v1)<>56 THEN 

GO TO 8030 

LET c(o,v)=g 

LET car=g-144: 

LET car=car-8 

PRINT PAPER car; INK 9; 

BRIGT IAT Olsk Viso РАТНО 

РУКЕ У CHRO C Дд"! КТ" АТ ОТЕУ" 
" 


FOR 1-1 ТО 18 


ТЕ 9151 THEN 


LET 9=9+1 

NEXT i: NEXT n 
FOR b=1 TO 15 
BEEP .25,30: 

NEXT b 

FOR n=4 TO 21 


BEEP .25,50 


STEP 3 


PRINT АТ п-1,3 УТ те тт т 
Тт" FA “ari me жи тт 
PRINT AT n+1,3;" T T T T T 
те s P => ^ T 
PRINT AT n,3;"S 86-86 65 S9 5S6 6 
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8650 PRINT '"PREMI UN ТА5ТО PER ІМІ?І 
АВЕ" 

8660 PAUSE 0 

-------- 8670 CLS : PRINT FLASH 1; АТ 10,10; "А База di 
TTENDERE" 

8998 REM **CARATTERI GRAFICI** 

8999 REM {21G3} 

9010 FOR i=144 TO 163 

9020 FOR n=0 TO 7 


8180 NEXT n 9030 READ a 
8190 FOR n=1 TO ng 9040 POKE USR СНЕ5 i+n,a 
8200 PRINT AT n*3+1,30;"0 " 9050 NEXT n 
8210 NEXT n 9060 NEXT i 
8300 GO TO 1000 9070 GO TO 7000 
8498 REM **ISTRUZIONI** 9080 РАТА 24/82у247!,255,255,126,60,24 
8499 кЕМ (1463) 
8500 CLS : PRINT АТ 10,7; FLASH-1;"FE 9090 pATA 4,8,8,86,171,213,106,60 
RMARE IL NASTRO": BEEP 1,1: 9100 DATA 8,8,20,20,34,99,243,96 
PAUSE 200 9110 DATA 44,110,231,247,247,247,102, 
8510 BORDER 7: PAPER 7: CLS 44 
8520 PRINT TAB 9;"***MEMOGAME***" 9120 БАТА" 2,3,7,14,30,124, 2480 
8530 PRINT TAB 9; "(14063)" 9130 DATA 8,16,24,60,124,62,60,24 
8540 PRINT TAB 5; "GIOCO DI MEMORIA VI STAO РАТА 24 82 1255 1255, 2550255) 12673 
| SIVA" 6 
8550 FOR b=T TO; 10% ВЕЕР. -05,30-Ъ: 9150” РАТА 255, ,255,195,195,195,195,255 
ВЕЕР .05,30+b: NEXT b 255 
8560 PRINT '"All'inizio del gioco, su 9160 DATA 60,126,231,195,195,231,126, 
di una scacchiera di 36 caselle 60 
r vengono presentate per c 9170 DATA 24724724, 255255); 241224224 
irca 10 secondi 16 coppie di car 9180 DATA 24,24,255,255,60,126,195,12 
te." 9 
8570 PRINT SEL gioco consiste nel far 9190 DATA 56,56,16,254,186,40,40,238 
е 11 maggior numero ді coppie. 9200 DATA 66,153,90,60,24,126,66,102 
Le carte vengono scoperte in 9210 DATA 192,64,64,64,124,254,132,13 
trodu- cendo le relative coordin 2 
ate della scacchiera." 9220 DATA 56,124,214,214,254,254,170, 
8580 PRINT "In caso le due carte scop 170 
erte siano uguali, il giocator 9230 DATA 8,28,28,62,62,127,8,8 
i guadagna 1 punto е contin 9240 DATA 64,160,30,63,63,18,18,18 
ua il gioco. Altrimenti esse ve 9250 DATA 24,90,126,90,24,153,255,189 
ngono ricoperte ed il turno pas 
sa ad un altro giocatore." 9260: БАТА 0:070; 2557255707070 
8590 PRINT ''"PREMI UN TASTO PER CONT 9270 DATA 24,24,24,24,24,24,24,24 
INUARE" 


8600 PAUSE 0: CLS 

8610 PRINT "Durante il gioco un BEEP 
di tonobasso indica che le due c 
arte sono diverse, un BEEP acu 
to indica che si e' cercato 
di scoprire una carta gia' 

scoperta." 

8620 PRINT "I giocatori possono esser 
e da 1 а 4; all'inizio del gioco 

viene richiesto il loro numero 

ed i loro nomi (numero/nomi se 
guiti dal tasto ENTER). Per le 

carte basta premere i tasti del 
le re- lative coordinate." 

8630 PRINT "Durante il gioco vengono 
indica-ti i punteggi dei giocato 
ri, il turno di gioco e la coord 
inata che deve esere introdotta 
» "En caso si giochi da soli, a 

fine partita viene visualizzat 
о ancheil numero di mosse effett 
uate." 
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di Mark Chapman 


trad. e adatt. di 
Carlo Panzalis 


Di questi tempi, per un giovane 
innamorato riuscire a giungere 
al matrimonio è una vera e pro- 
pria ... avventura! 


es non si fa per amore...In questo 
affascinante adventure game recitate 
la parte di un aitante giovane, disposto a 
penetrare all'interno della “Саза del De- 
stino" per affrontare le innumerevoli insi- 
die che il potente padrone di casa ha po- 
sto a difesa della sua privacy e dei suoi 
tesori. Siete quindi pronti a dimostrare 
all'adorata fidanzata il vostro coraggio ed 
amore e al di lei augusto e ricco genitore 
il vostro completo disinteresse per la di- 
mensione materiale e venale della vita, 
rassicurandolo cosi sulla sorte del suo im- 
ponente patrimonio. 

Il programma qui pubblicato non potrà 
non rallegrare gli amanti del genere ad- 
venture, non solo perché il gioco ë real- 
mente avvincente e di difficilissima solu- 
zione, ma anche perché costituisce sen- 
z'aliro ottimo materiale, suscettibile di 
approfondito esame da parte di quanti 
volessero espandere la propria produzio- 
ne artigianale a questo tipo di giochi. 

In questo scritto non esamineremo in pro- 
fondità le caratteristiche operative del 
programma: correremmo il rischio di pri- 
varvi del piacere di scoprire da soli i mi- 
steri di questa ostile magione. Ci limitere- 
mo dunque a descrivere le modalità di 
gioco e ad esaminare il listato “a blocchi”. 
All’inizio del gioco vi trovate all’interno 
del palazzo, di fronte al portone d’ingres- 
so, dal quale è subito chiaro che...non 
potrete più uscire! Scoprire la strada 
d’uscita è infatti scopo primario del gioco. 
Attenzione, però: uscire senza aver trova- 
to e raccolto il lingotto d’oro e il prezioso 
rubino, celati chissà dove nel palazzo, si- 
gnifica rinunciare a Elena (...la vostra 
amata: a proposito, chi intende fare cosa 
gradita alla sua ragazza farà bene a cam- 
biare il nome nel listato...poi non venite 
a lamentarvi con noi!) e deludere una im- 
mensa folla che, informata della vostra 
impresa, si raduna all’uscita della casa, 
pronta ad acclamarvi in caso di succes- 
so. 

Per realizzare il vostro scopo avete circa 
quaranta minuti di tempo, a meno che 
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riusciate a scovare e a mangiare la Frutta 
della Vita, magico alimento che rende im- 
mortale chi ha la fortuna di cibarsi di es- 
so. Abbiamo cosi indicato i quattro obiet- 
tivi fondamentali del gioco, possibilmente 
da perseguire nel seguente ordine: frutta, 
lingotto e rubino, uscita. E' giusto.comun- 
que sottolineare che il pasto a base di 
frutta non ë un imperativo categorico, ma 
solo un mezzo per avere un po' di respiro. 
E cioè possibile vincere la partita senza 
essersi curati di questo aspetto. 

Nulla abbiamo invece ancora detto sulle 
numerose insidie, trabocchetti ed incontri 
letali che si oppongono alla riuscita del- 
l'impresa: la stanza degli scheletri, quella 
della vedova nera, il gas venefico che si 
diffonde di colpo fra le stanze, ecc.. An- 
che in questo caso non intendiamo peró 
sbilanciarci, rivelandovi cose che non do- 


vete conoscere per giocare la partita in 
tutta onestà. D'altro canto tali insidie so- 
no pressoché ineliminabili nel senso che, 
una volta incontrate, non vi lasciano 
scampo. Bisogna dunque munirsi di santa 
pazienza e ricordarsi da una partita all'al- 
tra quali stanze sono assolutamente da 
evitare. Ricordate che questi pericoli so- 
no di tale entità da vanificare anche il 
dono dell'immortalità conquistato con 
l'ingerimento della Frutta della Vita. 

Ció che invece vi ostacolerà in ogni parti- 
ta é la complicata planimetria del palaz- 
zo, unitamente alla necessità di raccoglie- 
re e assemblare i piü strani oggetti che 
troverete sparsi in ogni dove, che vi con- 
sentiranno di ottenere fondamentali sug- 
gerimenti per accedere a locali altrimenti 
non raggiungibili e trovare cosi ció che 
cercate. Chi 6 impaziente di trovare 
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l’uscita potrà, esaminando l’elenco degli 
oggetti presenti nel palazzo, scoprire le 
relazioni fra di essi, per risolvere più rapi- 
damente il gioco. Siamo tuttavia certi 
che, anche in questo caso, non riuscirete 
a scoprire interamente le modalità da se- 
guire per guadagnare rapidamente l’usci- 
ta con i premi in vostro possesso. 
Chiariti scopi e problemi del gioco, pas- 
siamo ad esaminare le caratteristiche 
operative del programma. Il listato può 
essere suddiviso in tre blocchi principali: 
a) le routine di controllo, che si occupano 
della normale gestione del gioco, della 
verifica dei vostri comandi, dell’appari- 
zione dei messaggi per informarvi circa il 
manifestarsi di dati eventi; b) il blocco di 
immagazzinamento della pianta del pa- 
lazzo, che tiene dunque conto della dispo- 
sizione delle stanze nello spazio e regola 
le possibilità di accesso fra un locale e 
quelli contigui; c) infine il blocco per la 
gestione delle situazioni particolari, cui si 
accede in relazione a vostre mosse parti- 
colari (raccolta o assemblamento di pre- 
mi, scoperta di passaggi segreti, azioni 
bizzarre, ecc.). 

Diversamente da quanto siamo soliti fare, 
la suddivisione del listato in questi tre 
blocchi è effettuata considerando, più che 
la semplice sequenzialità fisica fra linee 
di programma, la loro consequenzialità 
logica ed operativa. 

In tal senso consideriamo appartenenti al 
medesimo gruppo di istruzioni (in questo 
caso routine di controllo) le linee 40 - 
330, che sovraintendono all’accoglimen- 
to degli input da tastiera e alla loro verifi- 
са, e le linee 9000 - 9050, che contengo- 
no i dati atti a consentire tale verifica, e 
questo indipendentemente dalla loro col- 
locazione in distinte aree del listato. 
Consideriamo ora il funzionamento vero 
e proprio del programma. Una volta lan- 
ciato, il programma vi richiede di inserire 
la direzione in cui intendete muovervi. A 
tale scopo disponente di un menu di 16 
comandi (10 per esteso: Nord, Sud, Est, 
Ovest,Alto, Basso, Dentro, Entro, Fuori, 
Esco; 6 abbreviati: N, 5, E, О,А, В). Ri- 
spondete a tale richiesta, quindi premete 
ENTER per comunicare che avete termi- 
nato il vostro comando. Le linee 100 - 
190 si occupano dell’accoglimento di 
questo input; le linee successive (200 - 
330) si occupano invece della verifica del- 
la correttezza del comando sia per quan- 
to riguarda la parte lessicale (correttezza 
di scrittura e riconoscibilità del comando 
rispetto al lessico previsto) sia per quanto 
concerne la possibilità di fare quella parti- 
colare morsa. Sarete dunque informati da 
appropriati messaggi nel caso di una vo- 
stra erronea indicazione; verrete invece 
spostati nella direzione richiesta, se l’in- 
put ha superato tutti i meccanismi di con- 
trollo. Una variante di tale procedimento 
riguarda comandi costituiti da più parole, 
vale a dire istruzioni rivolte a realizzare 
una data azione, quali “Prendo Martello” 
o “Metto Stella Buco”. Queste istruzioni 
complesse devono necessariamente con- 
tenere un verbo e un solo oggetto; già la 
richiesta di mettere la stella nel buco è 
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verifica dei comandi inseriti da tastiera, conseguente sal- 
to a stanza successiva o ad esecuzione di una data azione 


routine per la raccolta o l'abbandono dei diversi premi 
routine per l'esecuzione di azioni particolari (spostamenti 
di suppellettili nelle stanze, assemblamento di oggetti 
memorizzazione su nastro della situazione ad un dato 
caricamento da nastro della situazione di una partita 


routine associata ai comandi LISTA e INVENTARIO 
routine associata al comando AIUTO, per ottenere sug- 


Descrizione del programma 
Linee Commento 
10- 30 inizializzazione 
40- 80 gestione dei premi nelle stanze 
90- 190 accoglimento dei comandi inseriti da tastiera 
200- 330 
1000-1007 presentazione 
1010-2310 stanze del castello 
3000-3620 verifica della direzione prescelta 
3700 - 3870 
3900 -5799 
per costruirne un altro, ecc.). 
5800 - 5860 
momento, per interrompere la partita 
5900 - 5920 
precedentemente interrotta (e salvata) 
6000 - 6150 
6200 - 6290 
gerimenti 
6300 - 6710 altre azioni particolari 
7000-7020 verifica dei premi a vostra disposizione 
9000 -9050 dati per la gestione del gioco 
9930-9940 azzeramento del contatore del tempo 
9950 - 9990 svariati tipi di morte 
Descrizione delle variabili 
N,S,E,W spostamenti nelle quattro direzioni cardinali 


U,D spostamenti verso l'alto e il basso 


EN,L ingresso ed uscita dalle stanze 

R () puntatore; invia il programma alla successiva stanza 
O () disposizione degli oggetti nel palazzo 

с premi raccolti dal giocatore 

D () controllo sull'apertura delle porte 

LIFE, ЕМ А() tempo a disposizione 

LLIFE controllo immortalità 


del tutto eccezionale e vi sarà suggerita 
dal programma stesso. Anche in questo 
caso il programma verifica la possibilità 
di eseguire il comando secondo le modali- 
tà prima esposte. Vediamo ora di com- 
prendere come il programma può ricono- 
scere la planimetria del castello. 

Questa è concretamente gestita dalle li- 
nee 1010 - 2125. Ogni locale in cui pote- 
te entrare è, sotto il profilo operativo, 
gestito da una coppia di linee: una linea 
contenente una istruzione PRINT, atta a 
descrivere la configurazione della stanza, 
e una linea contenente una o più istruzio- 
ni LET (talvolta anche una GO SUB), che 
determina gli spostamenti consentiti da 
quella particolare posizione della casa. 
Ad esempio, la linea 1010 vi informa cir- 
ca l'aspetto della stanza in cui vi trovate, 
la linea 1015 assegna alle variabili W 
(WEST), E (East) e N (North) tre distinti 
valori; scegliendo una di queste tre dire- 
zioni si assegna il valore della corrispon- 
dente variabili ad un puntatore R(1) e che 
realizza il salto nella linea di programma 
(cioë ad un'altra stanza) per mezzo del 
seguente algoritmo: 


GO SUB (КИ) • 10) + 1000 


Se nel nostro esempio scegliamo di spo- 


starci ad Est, direzione a cui corrisponde 
la variabile E22, accederemo alla stanza 
associata alla linea: 


(2 » 10) + 1000 = 1020 


Quando invece realizziamo | un'azione 
particolare, come raccogliere un oggetto, 
'algoritmo che viene considerato 6: 
Гай 


GO ТО (Е + 100) + 3000 


dove Е si riferisce alla particolare орега- 
zione richiesta. Attraverso questa proce- 
dura si accede alla sezione del listato de- 
stinata alla gestione delle situazioni parti- 
colari; terminata l’azione si ritorna alle 
routine di controllo, pronti all'inserimento 
di un nuovo ordine. 

Il gioco consente di contare su un lessico 
di oltre 60 termini, fra verbi e oggetti; di 
particolare interesse le opzioni “LISTA” 
e “INVENTARIO”, per sapere in ogni 
istante quali oggetti sono in nostro pos- 
sesso; “AIUTO”, per ricevere talvolta op- 
portuni suggerimenti; infine “SALVA” e 
“CARICA”, opzioni grazie alle quali pos- 
siamo interrompere una partita per ri- 
prenderla successivamente, salvando e 
caricando da nastro gli array che control- 
lano la nostra posizione, i premi raccolti, 
ecc.. 


Prima di iniziare а muovere i primi passi 
all’interno della “Casa del Destino” con- 
sentiteci di sottolineare che il programma 
è stato accuratamente verificato: la solu- 
zione di questa avventura è realmente 
molto difficile, ma non impossibile. Nel 
caso non riusciate a guadagnare l'uscita 
nel giro di qualche partita non attribuite 
precipitosamente la colpa dell’insuccesso 
al listato, ma aguzzate l’ingegno e, so- 
prattutto, liberate la vostra fantasia: ve- 
drete che la vostra tenacia sarà adegua- 
tamente ricompensata dal lieto fine. 


inserire: DESCRIZIONE DEL PRO. Entro Martello 
GRAMMA Dnm “л И 
edaglione d'oro 
Esco Lenzuolo 
Vocabolario a disposizione Muovo Lingotto d'oro 
С di = are 
oman arica co 
N Guardo Rubino 
E Lista Gancio 
s Inventario Chiave blu 
o Aiuto Chiave rossa 
Nord Notate che si gioca in prima persona, Lente 
Est tranne nel caso dei comandi SALVA, CA- Sapone 
Sud RICA e LISTA. Fin d'ora vi suggeriamo : x у 
Ovest che il verbo “allaccio” può essere utilizza- Giocando vi accorgerete che alcuni og- 
Alto to proficuamente in un solo ambiente; getti non si trovano mai in giro! Pensate 
Basso che non sempre si possono usare i termini aPprofonditamente а questo curioso 
A ENTRO e ESCO; che la richiesta di AIU- aspetto: ne trarrete vantaggio. 
B TO spesso non fornisce suggerimenti uti- 
Prendo li, ma è quasi indispensabile per raggiun- Altri termini che talvolta il pro- 
Lascio gere la soluzione; che SALGO diviene im gramma riconosce 
Faccio portantissimo vicino alla fine del gioco; 
Blocco infine che GUARDO consente di псоп- Buco 
Scaldo trollare la vostra posizione nella stanza, Scaffale 
Allaccio nel caso in cui sia sparita la didascalia. Tappeto 
Lego Quadri 
се Oggetti PR 
rutta 
Leago Fune Vino 
tae iM Apriti Sesamo 
angio tella 
Getto Liquido verde Questi termini non rappresentano oggetti 
Sblocco Libro che potete raccogliere, ma la realizzazio- 
Bevo Scatola di sigari пе di un'azione su di essi ë indispensabile 
Salgo Chiodi per vincere la partita. 
70 LET H=]: RESTORE 9040 
80 FOR 6=1 ТОНЕ: READ GS: NEXT С: 
PRINT CS: Со ТО 50 
10 LET LLIFE-1: LET LIFE=2000: 90 LET Т-1: PRINT AT 18,0;"]-": 
BORDER 6: PAPER 7: INK O0: LET А5="" 
GO SUB 1000: POKE 23658,8: 94 IF LLIFE-0 THEN GO ТО 100 
DIM R(2): DIM 0(30): DIM C(5): 95 IF FN A()^LIFE THEN GO TO 9950 


DIM D(10,2) 


FOR G-1 TO 100: 


LET B$-INKEY$: 


20 RESTORE 9050: LET R(l)s1: FOR F= ТЕ BOC«»"" тнЕн  со:то 7110 
КАТО ЗО READ; O ICE) -NEXT E 105 NEXT с: GO ТО 94 

30 LET L=0: LET ЕМ-0: LET N=0: 110 ВЕЕР 01 КО: ТЕ СОБЕ В5-12 
LET E=0: LET 5-0: LET W=0: ТНЕМ со ТО 160 
LET П-0:: LET D=0: GO SUB (R(1)* 120 ТЕ СОБЕ В5-13 AND AS«»"" 


10) +1000: 
40 FOR Е=1 ТО 30: 
THEN GO ТО 60 
50 МЕХТ Е: СО ТО 90 
60 IF H=0 THEN PRINT 
TRE VEDI:" 


LET H=0 


IF O(F)=R(1) 


INK 1;'"INOL 


THEN GO TO 200 

IF CODE B$=13 THEN GO TO 100 

IF LEN A$>29 THEN GO TO 100 
LET A$=A$+B$: PRINT AT 18,T;B$;" 
" 


ТЕ ІМКЕҮ5<>"" ТНЕМ СО ТО 145 
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150 
160 
170 
180 
185 
190 
200 


201 
202 


205 


210 
220 


230 
240 


250 


260 
270 


280 
290 
300 
310 
320 


330 
1000 


1005 


1006 


1007 


1010 


1015 


ҺЕТ Т=Т+1: СО ТО 100 

ТЕ Аб-"" ТНЕМ GO ТО 100 

LET Т-Т-1: LET А$=А$( ТО T-1) 
PRINT АТ 18,T;"- " 


IF INKEYS<>"" THEN GO ТО 180 
GO TO 100 

IF R(1)=126 AND R(2)=3 AND А5-"5 
ALGO" THEN LET F=34: GO TO 330 
IF LEN A$<6 THEN GO TO 205 

IF А6(1 TO 6)="APRITI" THEN 

LET A$="APRO"+A$ (7 TO LEN A$) 
LET D$="": LET FF=l: CLS: 

PRINT ">"; INK 1;A$: IF А5( 
LEN A$)<>"." THEN LET A$=A$+" 


RESTORE 9000: FOR F=FF TO LEN A$ 


IF A$(F)=" " OR A$(F)="." THEN 
GO TO 240 
NEXT F: GO TO 290 
IF А5 (ЕЕ TO Е-1) ="" THEN 
GO TO 230 
LET B$=A$ (FF TO F-1): FOR G-! 
TO 40: READ C$ 
IF C$=B$ THEN GO ТО 280 
NEXT G: LET FF=F+1: GO TO 210 
RESTORE 9010: FOR H=1 TO G: 
READ C: NEXT H: LET D$=D$+ 
втв8 C: LET ЕЕ=Е+1: GO TO 210 
RESTORE 9020: FOR F-1 TO 37: 
READ C$ 
IF C$=D$ THEN СО TO 330 
NEXT F 
PRINT '"NON CONOSCO UN SIMILE CO 
MANDO.": GO TO 90 
GO TO (Е%100) +3000 
СЗ. PRINT INK 2:АТ 1,2:"PER А 


MORE DI UNA RAGAZZA..." 
PRINT '"TI SEI PERDUTAMENTE INNA 
MORATO DI UNA RAGAZZA RICCHISSI 
MA DI NOME ELENA, E  POICHE' 
TU SEI POVERO, TI SEI IMPOSTO 
UNA DIFFICILE PROVA PER DIMO 
STRARLE IL TUO AMORE (E PER DIMO 
STRARE AL DI LEI RICCO GENITORE 
IL TUO COMPLETO DISINTERESSE):" 


PRINT '"DEVI RIUSCIRE A SCAPPARE 
DAL "PALAZZO DEL DESTINO' DO 
PO AVER TROVATO UN RUBINO E UN L 
INGOTTO D'ORO.....BUONA FORTUNA! 
11" 
PRINT АТ 21,0; "РЕЕМТ UN TASTO 
PER CONTINUARE": PAUSE 2000: 
GO SUB 9930: CLS : RETURN 
PRINT '"SEI DI FRONTE AL PORTONE 
е Rt MOLTO GRANDE E SEMBRA PE 
SANTE. 4 GROSSI CATENACCI MANTE 
NGONO LAPORTA CHIUSA. DI FRONTE, 
A NORD ELONTANO DALLA PORTA,C'E' 
UNA RAMPA DI SCALE. 2 CORRID 
OI VANNOAD EST E AD OVEST." 
LET W-21: LET E=2: LET N=118: 
RETURN 
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1020 


1024 
1025 


1026 
1030 


1034 
1035 
1040 


1044 
1045 


1046 
1050 


1055 
1060 
1065 
1070 
1073 
1074 


1075 
1080 


1085 
1090 


1095 
1100 


1195 


1110 


TIE 
1114 
1175 
1116 


1117 
1120 


PRINT '"SEI ІМ UN LUNGO CORRIDOI 
O CHE VADA EST A OVEST.UNA ROBUS 
TA PORTASI APRE NEL MURO A NORD. 
" 


IF 0(1,2)=1 THEN GO SUB 3000 
LET E=4: LET W-1: IF р(1,2)-1 
THEN LET EN=119 
RETURN 
PRINT '"SEI QUASI AL TERMINE NOR 
D DI UN CORRIDOIO. UNA ROBUSTA P 
ORTA E' SOCCHIUSA. LE USCITE SON 
O A NORDE А SUD." 
IF D(2,2)=1 THEN GO SUB 3000 
LET N=19: LET 5-119: RETURN 
PRINT '"SEI IN UN LUNGO CORRIDOI 
O CHE VADA EST A OVEST. UNA POR 
TA SI TROVA NEL MURO А SUD." 
IF р(2,2)=1 THEN GO SUB 3000 


LET E=6: LET W=2: IF 0(2,2)=1 
THEN LET EN=5 

RETURN 

PRINT '"SEI IN UN VESTIBOLO, A F 


IANCO ADUN BAGNO. UNA PORTA E' L 
ОБСТА" 

LET 1=4: RETURN 

PRINT '"SEI ALL'INCROCIO FRA I C 
ORRIDOI.PUOI ANDARE А OVEST,NORD 
QuSUD. ^ 


LET W=4: LET N=16: LET 5-7: 
RETURN 

PRINT '"SEI AD UN BIVIO NEL CORR 

IDOIO. PUOI ANDARE A NORD O A E 

ST 

LET Е-122 

IF 0(3,2)=1 THEN LET EN-8 

LET N26: RETURN 

PRINT '"TI TROVI NELLA STANZA 
DEGLI OSPITI, DOVE 51 SONO 

SVOLTI INFINITI PARTIES. LE USC 


ITE SONOA NORD E A OVEST." 
LET W=7: LET N=9: RETURN 


PRINT '"TI TROVI NELLA SALA DA B 
ALLO. LE USCITE SONO A NORD E 

A SUD." 

LET N=10: LET S=8: RETURN 

PRINT '"SEI IN UNA GALLERIA. QUA 


DRI SONOAPPESI ALLE PARETI. LA G 
ALLERIA E' MOLTO LUNGA E STRETTA 
. USCITEA NORD,OVEST E SUD." 
LET N=12: LET W=11: LET 5-9: 
RETURN 
PRINT '"SEI IN UN CORTO CORRIDOI 
O. SI VEDONO DUE PORTE ALLE РА 
RETI. USCITA A EST." 
IF 0(5,2)=1 THEN PRINT 
TA A NORD E' APERTA." 
IF 0(4,2)-1 THEN PRINT 
TA А SUD E' APERTA." 
LET E-10: IF D(5,2)-1 THEN 
LET N=14 
ТЕ 0(4,2)=1 THEN LET 5-13 
RETURN 
PRINT '"SEI IN UNA STANZA DESTIN 
ATA ALLOSVAGO E VARI GIOCHI SONO 


""ІА POR 


'""LA POR 


1125 
1130 


1135 
1140 


1145 
1150 


1154 


1160 


1165 


1170 


175 
1180 


1185 
1190 


295 


1200 


1203 
1204 
1205 
1210 


1214 
1215 
1216 
1217 
1220 


1221 


1225 
1230 


SPARSI DAPPERTUTTO.LE USCITE SO 
NO A SUDE A OVEST." 
LET. W=15: LET 5-10: RETURN 

PRINT '"SEI IN UNO STUDIO.UNA SC 
RIVANIA E' AL CENTRO DELLA STANZ 
А СОМ QUALCHE SEDIA INTORNO." 
LET L-11: LET N-11: RETURN 


PRINT '"SEI NELLA LIBRERIA. UN N 
OTEVOLE NUMERO DI LIBRI E' SU SC 
AFFALI CHE CORRONO LUNGO LA STA 
NZA. MOLTI VOLUMI SONO АММО 
CCHIATI SOPRA GLI STESSI LIBRI." 
LET L-11: LET 5-11: RETURN 

PRINT '"SEI IN UN PICCOLO CORRID 


OIO. HAIDI FRONTE A TE UNA PORTA 
MENTRE IL CORRIDOIO VA A SUD E 
A EST." 


LET E212: GO SUB 3000: LET S-120 
: LET EN-18: RETURN 
PRINT '"SEI AL TERMINE DEL CORRI 


DOIO E C'E' UNA PORTA ALLA PARE 
TE. USCITA А SUD." 
LET LIFE-2000: GO SUB 3000: 

LET EN=17: LET S=6: RETURN 
PRINT '"SEI IN UN SALONE,MA E' V 
UOTO. TISUGGERISCO DI  ANDARTEN 
E IN FRETTA." 
LET LIFE=FN A()+10: 

RETURN 
PRINT '"SEI IN UNA NON USATA CAM 
ERA DA GIOCHI DEI BAMBINI." 

LET L=15: RETURN 

PRINT '"SEI AL TERMINE DEL CORRI 
DOIO.UNAPORTA SI TROVA NELLA PA 
RETE AD OVEST. USCITA A SUD." 


LET L=16: 


LET S=3: GO SUB 3000: LET EN=20: 
RETURN 
PRINT '"SEI ІМ UN SALOTTO. LA ST 


ANZA E' GRANDE MA SEMBRA MOLTO I 
NTIMA. QUALCOSA NON TI CONVINCE 
" 


IF 0(10,2)=1 THEN LET D=76 

IF D(10,2)=1 THEN LET EN=76 

LET L=19: RETURN 

PRINT '"SEI IN UN CORRIDOIO ORIE 
NTATO A EST/OVEST.UNA PORTA SI T 
ROVA NELMURO A SUD." 

IF D(6,2)=1 THEN GO SUB 3000 
LET Е=1: LET W=23 

IF D(6,2)=1 THEN LET EN=22 
RETURN 

PRINT '"CAMMINI NELLA STANZA E L 
A PORTA SI RICHIUDE ALLE TUE SPA 
LLE.NOTIIN GIRO GLI SCHELETRI DI 


ALTRI CHE HANNO TENTATO LA PRO 
VA." 
PAUSE 150: PRINT '"TENTI DI APRI 


RE LA PORTA MA NON SI MUOVE. SEM 
BRA CHE IL MEDESIMODESTINO TI AT 


TENDA." 
GO TO 9960 
PRINT '"SEI IN UN CORRIDOIO ORIE 


NTATO A EST/OVEST.UNA PORTA SI T 


1235 


1240 


1245 
1250 


1255 


1260 


1265 
1270 


1275 


1280 


1285 
1290 


1295 


1300 


1305 
1310 


1315 
1320 


1325 
1330 


1335 


1340 


1345 
1350 


КОМА NELMURO А SUD." 


GO SUB 3000: 
LET EN=24: RETURN 

PRINT '"SEI NELLA CUCINA. UNA CA 
SSERUOLAE' SOPRA UNA STUFA ANCOR 
A CALDA." 

LET L=23: RETURN 

PRINT '"SEI ALL'INCROCIO FRA I C 

ORRIDOI.PUOI ANDARE A EST,NORD O 
SUD." 


LET E-21: LET W-25: 


LET 5-26: LET N-27: LET E-23: 
RETURN 
PRINT '"SEI IN CIMA A UNA RAMPA 


DI SCALEED UN CORRIDOIO VA A NOR 
DI" 


LET D=36: LET N-25: RETURN 
PRINT^''"SBEI'SINU UN 9 CORTO СОВЕТ 
DOIO ORIENTATO A NORD/SUD. UN 


A PORTA SI TROVA NEL MURO A EST. 
" 


GO SUB 3000: LET ЕМ-28: LET N=29 
: LET 5-25: RETURN 
PRINT '"SEI NELLA SALA DA PRANZO 


. NELLA STANZA C'E SOLO UN LUNGO 
TAVOLO MENTRE LA PARETI SONO SP 
OGLIE." 


LET L=27: RETURN 
PRINTS ""5ЕТ T IN- UN!" CORTO; CORRI 
DOIO ORIENTATO A NORD/SUD. UN 


А PORTASI TROVA NEL MURO A EST. 
" 


LET N=31: LET 5-27: GO SUB 3000: 
LET EN=30: RETURN 

PRINT '"SEI IN UNA STANZA DA BAG 

NO CON TOILETTE. SEMBRA MOLTO S 
PORCA." 

LET L=29: RETURN 

PRINT '"SEI AD UN BIVIO NEL СОВЕ 
IDOIO. PUOI ANDARE A SUD O A ES 

т." 

LET 5-29: LET Е-32: RETURN 

PRINT '"SEI AD UN BIVIO NEL CORR 
IDOIO. PUOI ANDARE A SUD О A ОМ 

воли" 

LET 5-33: LET W=31: RETURN 

PRINT '"SEI IN FONDO AD UN COR 


RIDOIO MOLTO CORTO.UNA PORTA SI 
TROVA NEL MURO OVEST. USCITA A 
NORD." 


LET N=32: GO SUB 3000: LET EN=34 
: RETURN 
PRINT '"SEI IN UNA STANZA PER IL 


CUCITO.IL LAVORO SEMBRA INTERRO 


ТТО БА POCO." 
LET L=33: RETURN 
PRINT '"SEI NEL RIPOSTIGLIO DELL 
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1355 
1360 


E SCOPE.USCITA IN ALTO." 

LET U=118: RETURN 

PRINT '"бЕТ AGLI ULTIMI GRADINI 

DI UNA SCALA DELLE CANTINE. QUE 

5ТО LOCALE Е" PIENO DI RIFIU 

TI. UNA PORTA RAPPRESENTA L'USCI 

ТА." 

LET U=26: 
RETURN 

PRINT '"SEI NEL CORRIDOIO DELLA 

CANTINA.IL CORRIDOIO VA VERSO NO 

RD E DUEPORTE SONO А EST E OVEST 
" 


LET L=37: GO SUB 3000: 


IF D(7,2)=0 THEN PRINT "SOLO LA 
PORTA A OVEST E' APERTA." 

IF D(7,2)*1 THEN PRINT "LE DUE 

PORTE SONO APERTE." 

IF D(7,2)=1 THEN LET E-38 

LET N=39: LET W=36: RETURN 


PRINT '"SEI IN UN LABORATORIO.GL 
I ARNESISONO APPESI ALLE PARETI. 
" 


LET L-37: RETURN 

PRINT '"SEI AD UN INCROCIO." 

LET N-45: LET E-40: LET W-42: 
LET 5-37: RETURN 

PRINT '"SEI IN FONDO A UN CORRID 
ОТО. UNAPORTA SI TROVA NELLA РА 
RETE A NORD. USCITA A OVEST." 
LET W-39: GO SUB 3000: LET EN-41 
: RETURN 

PRINT '"SEI IN UNA PICCOLA STANZ 
A DOVE C'E' UNA LUCE MOLTO FIOC 
A, MA RIESCI A VEDERE ALCUNE S 

CRITTE SUL MURO." 

LET L-40: RETURN 

PRINT '"SEI IN FONDO A UN CORRID 

OIO. DUEPORTE SONO APERTE ED UNO 
STRANO ODORE PROVIENE DA UNA DI 
ESSE. LE PORTE SONO A NORD E 

A SUD." 
LET S-43: 
RETURN 
PRINT '"LA STANZA E' COLMA DI 

UTTA." 
LET L-42: 
PRINT 

UTTA." 

LET L=42: RETURN 

PRINT '"SEI IN UN CORRIDOIO ORIE 

NTATO A NORD/SUD.UNA PORTA SI T 

ROVA NELMURO А OVEST." 

LET М-47: LET 5-39: GO SUB 3000: 
LET EN=46: RETURN 

PRINT '"SEI IN UNA STANZA CON 

TOTTICICMOBEEISDEISIPRUTTI." 

LET L-45: RETURN 

PRINT '"SEI AL TERMINE NORD D 

T TUN CORRIDOIO. LA PORTA E' S 
ITUATA NEL MURO AD OVEST." 

LET S=45: GO SUB 3000: LET EN=49 
: RETURN 

PRINT '"SEI GIUNTO AD UN PIANERO 

TTOLO. SCALINI УАММО A SUD E А 


LET N=44: LET E=39: 


FR 


RETURN 


'"А STANZA Е" COLMA DI FR 
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1485 


1490 


1495 
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1585 
1590 


1595 
1600 


1605 


1610 


1615 


NORD." 

LET LIFE=2000: 

4: RETURN 

PRINT '"SEI NELLA CANTINA DEI 
VINI. LE BOTTIGLIE SONO SU S 

CAFFALI.BICCHIERI DI VINO SONO 
SU DI UN VASSOIO" 

LET L=47: RETURN 

PRINT '"SEI IN UNA CELLA GRANDE 

COME UNASTANZA. LE PARETI SONO 

NUDE. LEUSCITE SONO A EST E A NO 

RD." 

LET E-51: LET N=53: RETURN 

PRINT '"SEI IN UNA STANZA CIRCOL 

ARE. UN GRANDE BUCO E' SOPRA DI 

TE." 


LET LIFE-2000: 
0: RETURN 
PRINT '"SEI IN UNA STANZA POLVER 

OSA. TI SENTI MANCARE IL RESPIRO 
, QUINDIESCI IN FRETTA" 

LET LIFE-FN А()410: LET 5-51: 
LET L-51: RETURN 

PRINT '"SCALINI VANNO VERSO L'AL 
TO E LA PORTA E' A SUD" 

LET 5-50: LET U-48: RETURN 

PRINT '"SEI IN UNA STANZA IN CUI 
ALEGGIAUN BRUTTO ODORE.TI SENTI 
COME SEDEGLI OCCHI ТІ OSSERVA 


LET S=53: LET N=5 


LET N=52: LET W=5 


SSERO. DECIDITI IN FRETTA E DIR 
IGITI A EST O SUDET 

LET LIFE=FN A()+10: LET E=55: 
LET S=48: RETURN 

PRINT '"TI TROVI NELLA CAMERA OS 


CURA.UNOSCAFFALE SEMBRA FUORI РО 
STOT 

LET LIFE=2000: LET E=54: LET L=5 
4: RETURN 

PRINT '"IL MURO SI SPOSTA." 

LET Е(1)-119: GO TO 2190 

PRINT '"LO SCAFFALE SI MUOVE." 
LET R(1)=55: СО TO 1550 

PRINT '"TI TROVI IN UNA STANZA S 


EGRETA DIETRO LA LIBRERIA." 


LET L=57: RETURN 
PRINT '"SEI IN UNA CAMERA DA LET 
TO. LE PARETI SONO VIVACEMENTE 


DECORATEE TUTTO SEMBRA  CONFORTE 
VOLE." 

LET L=60: RETURN 

PRINT '"SEI IN UN CORRIDOIO.A SU 
D C'E'UNVICOLO CIECO MA VI SONO 

PORTE AILATI EST E OVEST.USCITA 


A NORD." 

LET N=63: LET E-61: LET W-59: 
RETURN 

PRINT '"SEI IN UNA CAMERA DA LET 


TO PER GLI OSPITI PIU' IMPORTAN 
TI. IL LETTO E IL BALDACCHINO S 
EMBRANO MOLTO ELEGANTI. UNA POR 


TA E' L'USCITA,UN'ALTRA CONDUC 
ЕА Вт.“ 

LET E=62: LET 1-60: LET W=60: 
RETURN 
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PRINT '"SEI NEL BAGNO RISERVAT 
О AGLI OSPITI. LA PORTA Е! L'US 
CITA." 

LET W-61: LET 1-61: RETURN 

PRINT '"SEI AD UNA SVOLTA NEL CU 
NICOLO. UNA PORTA E' NEL MURO OV 


EST. LE USCITE SONO A EST E A SU 
DAZ 

GO SUB 3000: LET EN-64: LET S-60 
: LET E=67: RETURN 

PRINT '"SEI IN UNA STANZA DA LET 
TO. UNA BRANDA E' CONTRO UNA PAR 
ETE." 

LET L=63: RETURN 

PRINT '"SEI IN UN PIANEROTTOLO O 


RIENTATOA EST/OVEST CON UNA PORT 
A APERTAVERSO SUD." 


LET W-63: LET E=123: LET EN=68: 
LET 5-68: RETURN 
PRINT '"SEI IN UN SOGGIORNO RISE 


RVATO AGLI OSPITI. SUL PAVIMEN 
TO CALDIE MORBIDI TAPPETI." 

LET L=67: LET N=67: RETURN 

PRINT '"SEI IN UN PIANEROTTOLO O 
RIENTATOA EST/OVEST CON UNA PORT 
A APERTAVERSO SUD." 


LET W=123: LET E=71: GO SUB 3000 
: LET EN=70: RETURN 

PRINT '"SEI IN UNA CAMERA DA LET 
TO DALLENUDE PARETI. E' UMIDA E 
FREDDA." 

LET L=69: RETURN 

PRINT '"TI TROVI AD UN INCROCIO 

SUL PIANEROTTOLO. USCITE A N 

ORD,EST,SUD E OVEST." 

LET N=72: LET S=80: LET W=69: 
LET E=77: RETURN 

PRINT '"SEI AL DI FUORI DI UNA P 

ORTA. USCITA VERSO SUD." 

LET S=71: GO SUB 3000: LET EN=73 
: RETURN 

PRINT '"SEI IN UNA CAMERA DA LET 


TO. UN GUARDAROBA E' 
Lost 

IF D(8,2)=0 THEN LET EN=74 
LET L=72: RETURN 


IN UN ANGO 


PRINT '"SEI DENTRO IL GUARDAROBA 
Bi VUOTO. USCITE A EST E OV 
EST." 

LET E=73: LET W=75: RETURN 

PRINT '"SEI IN UNA PICCOLA ST 
ANZA NASCOSTA DAL GUARDAROBA. 
" 

LET L=73: RETURN 

PRINT '"SEI IN UN BUCO DEL PAVIM 
ЕМТО." 

LET D(10,1)=0 

LET U=110: RETURN 

PRINT '"SEI AL DI FUORI DI UNA P 
ORTA. USCITA VERSO OVEST." 

LET W=71: GO SUB 3000: LET EN=78 
: RETURN 

PRINT '"SEI IN UNA STANZA DA LET 


TO. LA CAMERA E' SPOGLIA E SENZ 


A VITA." 

LET L=77: RETURN 

PRINT '"SEI IN FONDO ALLE SCA 
LE. LE USCITE SONO IN ALTO E A 
NORD." 

LET U=99: LET N-71: RETURN 

PRINT '"SEI NELLA CAMERA DI UNA 


RAGAZZA.IL LETTO E'IN ORDINE E L 
A CAMERAE' MOLTO PULITA." 

LET L-88: RETURN 

PRINT '"SEI NELLA CAMERA DI UNA 
RAGAZZA IN CUI TUTTO SEMBRA TRAS 
ANDATO." 


LET L=87: RETURN 

PRINT '"SEI NELLA STANZA DEI DOM 
ESTICI. UNO SPECCHIO E' APPESO A 
L MURO." 

LET L-86: RETURN 

PRINT '"UNA DEVIAZIONE NEL PIANE 


ROTTOLO.LE USCITE SONO A EST E A 
SUD." 

LET E-102: LET S-86: RETURN 
PRINT '"SEI IN UN PIANEROTTOLO O 

RIENTATOA NORD/SUD. UNA PORTA 

E' ALLA PARETE OVEST." 

LET EN-83: LET N-85: LET S-87: 
GO SUB 3000: RETURN 

PRINT '"SEI IN UN PIANEROTTOLO O 

RIENTATOA NORD/SUD. PORTE A EST 

E OVEST.ENTRAMBE SONO APERTE." 


LET E-91: LET W-82: LET N-86: 
LET S-88: RETURN 
PRINT '"UNA DEVIAZIONE NEL PIANE 


ROTTOLO.UNA PORTA E' ALLA PARETE 
OVEST. LE USCITE SONO A EST E A 
NORD." 

LET N=87: LET Е-89: 
LET EN-81: RETURN 

PRINT '"SEI AL DI FUORI DI UNA P 

ORTA. USCITA VERSO OVEST." 

LET W-88: GO SUB 3000: LET EN-94 
: RETURN 

PRINT '"SEI NEGLI ALLOGGI PER LA 
NOTTE DEI CUOCHI." 

LET L=87: RETURN 

PRINT '"SEI NELLA LAVANDERIA MA 

NON VEDIBIANCHERIA IN GIRO. UNA 

VASCA E'SUL PAVIMENTO MA E' TUTT 

A ROTTA." 


GO SUB 3000: 


LET L=99: RETURN 

PRINT '"SEI NELLA STANZA DEI SER 
VI. Е" ESTREMAMENTE ORDINATA Е 
NULLA SEMBRA FUORI POSTO." 
LET L-89: RETURN 
PRINT '"SEI NELLA SALA DA MUSICA 
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1975 
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T995 
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2025 


2030 


2035 


2040 


2045 


2060 


2065 
2080 


2085 


2100 


2104 


2105 
2110 


MA NON C'E' NULLA А PARTE UNO 
SPESSO STRATO DI POLVERE." 
LET L=98: LET N=98: RETURN 
PRINT '"SEI NELLA SALA DA MUSICA 
. SU UN LEGGIO VI E' UNO SPARTIT 
O. ОМА PORTA APERTA E" А SUD" 


LET EN=97: LET W=99: LET S=97: 
LET L=99: RETURN 
PRINT ""ТІ TROVI IN CIMA ALLE SC 


ALE. UN PIANEROTTOLO VA A NORD E 
PORTE APERTE SONO A EST E A OV 
EST." 


LET D=80: LET W=92: LET E=98: 
LET N=100: RETURN 
PRINT '"IL PIANEROTTOLO VA А NOP 


D, SUD EEST,UNA PORTA E' NEL MUR 
O OVEST." È 
LET N=102: LET S=99: LET E=104: 
GO SUB 3000: LET EN=101: 
RETURN 
PRINT '"SEI NELL'AULA IN CUI IL 
TUTORE  SUOLE TENERE LE LEZIONI. 
SULLA  LAVAGNA C'E' UNA ADDIZIO 
NE. LA OPERAZIONE E' 13-15, E T 
UTTO VIENE POI MOLTIPLICATO P 
ER 100." 
LET L=100: RETURN 
PRINT '"UNA DEVIAZIONE NEL PIANE 
ROTTOLO.PUOI ANDARE A OVEST O SU 
D E UNA PORTA E' A EST." 
LET W-85: LET S-100: GO SUB 3000 
: LET EN-103: RETURN 
PRINT '"SEI NELLA CAMERA DEL TUT 
ORE. UNAPORTA E' APERTA VERSO ES 
mU 
LET L-102: 
: RETURN 
PRINT '"SEI DAVANTI A TRE PORTE 


LET EN-106: LET E-106 


APERTE. L'USCITA E' A OVEST,MENT 
RE LE PORTE SONO A NORD,SUD E 

EST." 

LET W-100: LET E-111: LET N-108: 
LET S=112: RETURN 

PRINT '"SEI NEL BAGNO PERSONAL 


E DEL TUTORE. L'USCITA E' UNA 
PORTA." 

LET L=103: RETURN 

PRINT '"SEI IN CAMERA DELLA BAMB 
INAIA. PORTE VERSO EST E SUD. U 
NA CULLADONDOLA AVANTI E INDIETR 
9," 


GO SUB 3000: LET E=110: LET 5-10 
4: LET L-104: LET EN-110: 

RETURN 

PRINT '"SEI NELLA CAMERA DA LETT 


O DELLA BAMBINAIA, STANZA PICCOL 
A MA PIACEVOLE. UNO STRANO TA 
PPETO E'SUL  PAVIMENTO." 

IF 0(10,1)=1 THEN PRINT "UN ВОС 


O NEL PAVIMENTO! SCENDI !": 
LET D-76 
LET L=108: LET W-108: RETURN 


PRINT 
CHI DEI BAMBINI. 


""5ЕІ NELLA STANZA DEI GIO 
ALCUNI GIOCATTO 
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21715 
2120 


2125 
2130 


2135 


2140 


2145 
2150 


2160 


2165 


2166 


2167 


2168 


2169 


2170 


ІІ 5ОМО SPARSI РЕК TERRA." 

LET L=104: LET W=104: RETURN 
PRINT '"SEI IN UNA PICCOLA STANZ 
A PIENA DI DISEGNI DEI BAMBINI 5 
UI MURI." 


LET L=104: LET N=104: RETURN 
PRINT '"QUATTRO DIREZIONI. NORD, 
EST,SUD E OVEST." 

LET N=114: LET S=116: 


LET W=117: 
LET E=115: RETURN - 


PRINT ІМК 3; ""САММІМІ NELLA STA 
NZA E LA PORTA SI CHIUDE. LE PA 
RETI SEMBRANO RIDERE E POI PIAN 
GERE. SPECCHI RIFLETTONO LA TUA 
IMMAGINE E LA DEFORMANO. LA LUC 
E TI ACCECA E GRIDA TI ASSORDAN 
O. LA PORTA SI E' RICHIUSA SUL T 
UO DESTINO." 
GO TO 9980 
PRINT-CINK'2;""CORRI ASOVESTIN: 
LET LIFE=FN A()+5: LET LLIFE=1: 
LET W=113: GO TO 90 
PRINT '"UN LUNGO SCIVOLO DI FRON 
TE A TE VA IN GIU' VERSO IL TERR 
ENO. FUORI UNA FOLLA SI E' RA 
DUNATA E,AL TUO APPARIRE,TUTTI 


INIZIANOAD APPLAUDIRE! MA HAI VI 
NTO ?" 

PRINT '"SCIVOLI VERSO IL TERRENO 
. DEVI ORA CONSEGNARE IL LINGOT 


TO D'OROE IL RUBINO AL PADRE DI 


ELENA. TUTTI SONO IN ATTESA." 
PAUSE 600: LET D$="RUBINO": 

GO SUB 7000: IF H=6 THEN 

PRINT '"OH CARO! NON HAI IL RUB 
INO. COSAFARAI ADESSO ? CERTO NO 
N POTRAI SPOSARE ELENA. HAI FAL 
LITO LA TUA PROVA.": СО TO 9980 


LET D$="LINGOTTO D'ORO": 
GO SUB 7000: IF H=6 THEN 


PRINT '"OH CARO! HAI FALLITO LA 
PROVA POICHE' NON HAI IL LING 
OTTO. BEH, PUOI SEMPRE RIPROV 
ARCI.": GO TO 9980 
CLS : PRINT INK 1;"SEI RIUSCITO 


NEL TUO INTENTO. ELENA CORRE 
VERSO DI TE CON LE BRACCIA APER 
ТЕ PER ABBRACCIARTI.SUO PADRE Е" 


RAGGIANTE. LUNGA VITA A 
TUTTI E DUE." 

BEEP .9,-5: BEEP .5,0: PAUSE l: 
BEEP .15,0: BEEP 1,0: PAUSE 2: 
BEEP .9,-5: BEEP .5,2: PAUSE l: 
BEEP .15,-1: BEEP 1,0: PAUSE 2: 
BEEP .9,-5: BEEP .5,0: PAUSE 1: 
BEEP .15,4: BEEP .5,7: PAUSE 1: 
BEEP .15,4: BEEP .9,0: PAUSE 2: 
BEEP .9,-5: BEEP .5,2: PAUSE 1: 
BEEP .15,-1: BEEP 1,0: PAUSE 10 
: GO TO 2169 

PRINT '"CASCHI IN UNA BOTOLA 
NEL PAVIMENTO. NE AFFERRI IL 


вокро ТЕ ТТ ТІКІ SU. 


2175 


2180 


2185 
2190 


2195 
2200 


2205 
2220 


2225 
2230 


2235 


2260 


2264 


2265 
2310 
3000 


3100 
3110 
3120 
3130 


3140 
3200 
3210 
3220 
3300 
3310 
3320 
3400 
3410 
3420 
3500 
3510 
3520 
3600 
3610 


3620 


MA ECCO APPARIRE UN PIED 


ONE. E' ENORME E MINACCIOSO E 
TI SCHIACCIA LE DITA." 
PRINT '"PRECIPITI VERSO LA MORTE 


¿"š "GO TO ово 

PRINT '"SEI AI PIEDI DI UNA SCAL 
A. NELLARINGHIERA C'E' UNO STRAN 
O BUCO AFORMA DI STELLA. LE USCI 


TE  SONOA SUD E IN ALTO." 


LET U=123: LET 5-1: RETURN 

PRINT '"TI TROVI IN UN CORRIDOIO 
LUNGO ESTRETTO CHE PORTA A NORD 
E SUD. SULLA PARETE OVEST CI SO 
NO DEI QUADRI, MENTRE IL MURO E 
ST Е" SPOGLIO. TUTTO TI SEMBRA 
STRANO." 

LET N=3: LET S=2: RETURN 

PRINT '"SEI IN UNA SERRA.ALCUNE 
SCULTUREDECORANO IL LOCALE." 

LET 1=15: LET N=15: RETURN 

PRINT '"SEI IN UNA STANZA E UNA 
PORTA E'DALL'ALTRO LATO. POTREST 
I RAGGIUNGERLA SALENDO SU 

DI UN NASTRO TRASPORTATORE,MA 

VA NELLADIREZIONE SBAGLIATA.IL P 

ULSANTE PER FERMARE IL NASTRO E' 
SULLA  PARETE MA E' FUORI PORTA 


TA. USCITA A OVEST." 
LET W=7: RETURN 

PRINT '"SEI IN CIMA AD UNA S 
CALA. UN CORRIDOIO VA A EST E 

OVEST." 

LET Е=69: LET W=67: LET D=118: 
RETURN 

PRINT '"SEI SU UNA SPORGENZA DEN 
TRO UN BUCO. MOLTO PIU' IN ALTO 
C'E UN ALTRO BUCO." 

IF R(2)=3 THEN PRINT '"UNA FUNE 
PENZOLA GIU'." 

RETURN 

RETURN 

PRINT '"LA PORTA E' APERTA.": 
RETURN 

IF N=0 THEN GO TO 3130 

LET R(1)=N 

GO TO 30 

PRINT INK 2;'"DIREZIONE NON CON 
SENTITA" ` 

GO TO 90: 25 


IF E=0 THEN GO TO 3130 
LET R(1)=E 
GO TO 30 

IF S=0 THEN 
LET R(1)=S 
GO TO 30 

IF W=0 THEN 
LET R(1)=W 
GO TO 30, 
IF U=0 THEN 
LET R(1)=W 
GO TO 30 

IF D=0 THEN 
LET R(1)=D 
GO TO 30 


GO TO 3130 


GO TO 3130 


3130 


GO TO 


GO TO: 31:30 


3700 
3710 


3715 
3720 
3730 
3740 
3750 
3760 
3770 


3810 


3820 
3830 
3840 
3850 
3860 
3870 
3900 
3910 
3920 


3930 


3950 
3960 
3970 
3980 
4000 


4010 


4020 


4030 


4040 


4050 


RESTORE 9040: FOR F=1 ТО 30: 
READ C$: IF LEN A$-LEN C$-1<1 
THEN GO TO 3715 

IF C$=A$ (LEN A$-LEN C$ TO LEN A$ 

-1) AND O(F)-R(1) THEN GO TO 37 

20 

NEXT F: GO TO 3770 

FOR G=1 TO 5 

IF C(G)=0 THEN GO TO 3750 

NEXT G: PRINT INK 2;'"PORTI TRO 


PPI OGGETTI.": GO TO 90 

LET O(F)=0: LET C(G)=F 

PRINT ОК. GO UTO: 90 

PRINT ІМК 3;'"NON POSSO VEDERE 
К GO TOSO 


FOR F=] TO 5: RESTORE 9040: 


FOR G=1 TO C(F): READ C$: 

NEXT G 

IF LEN AS-LEN C$<1 THEN GO TO 3 
840 


IF AS(LEN AS-LEN C$ TO LEN А5-1) 
=C$ THEN GO TO 3850 
NEXT F: GO TO 3870 


LET C(F)=0: LET O(G-1)sR(1) 
GO TO 3760 
PRINT INK 3;'"NON HAI L'OGGETTO 


RICHIESTOF":  -СОСЗТО”90 

IF B$="SCALETTA" THEN GO TO 395 
0 
LET D$="STAMPO": GO SUB 7000: 

IF H=6 THEN GO TO 5790 
LET D$="LIQUIDO VERDE": GO SUB 7 
000: IF H=6 THEN СО TO 5790 
PRINT ІМК 1;'"НАЈ СВЕАТО UNA 
STELLA DALLO STAMPO": LET 05-" 
STAMPO": GO SUB 7000: LET С(Н)-3 
: LET D$S="LIQUIDO VERDE": 

GO SUB 7000: LET С(Н)-0: 

GO TO 90 
LET D$="LEGNO": GO SUB 7000: 

LET М-Н: IF Н-6 THEN СО TO 579 
0 

LET D$="CHIODI": GO SUB 7000: 
LET S=H: IF H=6 THEN GO TO 579 
0 
LET D$="MARTELLO": 
LET W-H: 
0 

PRINT ІМК !;'"HAI UNA SCALETTA. 
и: ТЕТ С (М) =0: БЕТ-С(6)-0% LET С 
(W)=0: LET C(W)=2: GO TO 90 

IF R(1)311 THEN GO TO 4050 

IF R(1)=37 THEN LET D$="CHIAVE 
BLU": GO SUB 7000 
IF H=6 THEN PRINT 


CHIAVE GIUSTA. ": GO ТО 90 

IF R(1)=37 THEN PRINT '"РОЕТА 
CHIUSA.": LET D(7,2)=0: LET D(7, 
1)=0: GO TO 90 

IF R(1)<>37. THEN 


GO SUB 7000: 
IF H=6 THEN GO TO 579 


'""TI SERVE LA 


GO- TO 5790 
LET D$="CHIAVE ROSSA": 

GO SUB 7000: IF H=6 THEN 

PRINT '"TI SERVE LA CHIAVE GIUS 
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4060 


4100 


ТА.": GO ТО 90 

PRINT '"PORTA CHIUSA.": ТЕТ D(5, 
2)=0: LET D(5,1)=0: GO TO 90 

IF R(1)<>24 THEN GO TO 5790: 
IF B$<>"SAPONE" THEN СО TO 5 
790 

LET D$="SAPONE": GO SUB 7000: 
BETCOESH:CIESHZ6 THEN" СО TO: 579 
0 

GO SUB 7020: LET N=H: IF H=6 
THEN 6107 4507 15 790 

GO SUB 7020: IF H=6 THEN 
GOMRTON57:90 

PRINTUOINKOULD;' CIBEZSAPONESNSIU SC 
IOGLIE ІМ UN LIQUIDO VERDE.": 
LET C(N)=0: LET С(Е)-0: LET C(H 
)=4 

GO TO 90 

FOR F-1 TO LEN А5 

IF A$(F)=" " THEN LET Р=Е+1: 
ТЕ AS(P TO P+3)="STEL" THEN 

GO TO 4420 

NEXT Е: СОТО 5790 

IF R (T) <> 118 THEN СО ТО 5790 

IF B$<>"BUCO" THEN СО ТО 5790 
LET D$="STELLA": GO SUB 7000: 


IF H=6 THEN GO TO 5790 
LET C(H)=0: PRINT '"LA STELLA SI 
ADATTA PRECISAMENTEAL BUCO.SUBI 


- ТО LA. SCALA SI MUOVEE APPARE UNA 


4545 


4550 
4560 


4570 


4579 


4580 


STANZA. 
GO то 30 
IF B$="PORTA" THEN GO TO 4570 
IF:B$="GUARDAROBA" THEN СО TO 4 
550 

IF B$<>"SESAMO" 
20" 2 А 2 è 
IF R(1)<>48 AND R(1)<>119 

THEN. GO TO 5720 - 
ТЕ В(1)-119 ТНЕМ LET р(9,1)-1: 
PRINT '"IL MURO SI APRE СОМЕ FO 
SSE UNA PORTA, RIVELANDO UN P 
ASSAGGIO SEGRETO.": 
LET EN=48: СО TO 90 
IF R(1)=48 THEN LET р(9,1)-1: 
PRINT ""ІҺ MURO SI APRE COME FO 
SSE UNA PORTA, RIVELANDO UN C 
ORRIDOIO.": LET R(1)=56: LET [=] 
19: LET EN=119: СО ТО 90 

IF R(1)<>73 THEN GO TO 5720 


ENTRI.": LET R(1)=35: 


THEN с0 ТО 57 


PRINT '"IL GUARDAROBA SI APRE.": 
LETSENzZ75: БЕТ D (В ТІЛДЕ Ке 
GO ТО 90 


IF R(1)<>110 AND R(1)<>2 

AND R(1)<>4 AND R(1)<>7 

AND R(1)<>11 AND R(1)<>21 

AND R(1)<>37 THEN GO TO 5720 


ТЕ R(1)=11 AND D(4,2)-1 THEN 
GO TO 4584 

IF R(1)=2 THEN LET 0(1,2)=1: 
LET EN=119: GO SUB 3000: 

GO TO 90 
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LET (И) 5607 


4581 
4582 
4583 
4584 
4586 
4587 
4588 
4589 


4590 
4600 
4610 


4620 


4630 
4650 


4669 
4700 


4705 


4710 


4720 


4730 


4790 
4800 


IF R(1)=4 THEN LET D(2,2)-1: 
LET EN-5: GO SUB 3000: GO TO 90 


IF R(1)=110 AND D(10,1)=1 THEN 
LET р(10,2)-1: LET D=76: LET EN 
-76: GO SUB 3000: GO TO 90 
IBERQCUZPBSPHENUSEETPSD(64A;2)-2M: 
LET EN-13: GO SUB 3000: GO TO 9 
0 

IF R(1)=11 AND D(5,1)=1 THEN 
LET D(5,2)21: LET EN=14: 

GO SUB 3000: GO TO 90 

ТЕ Е (1)-21 THEN ТЕТ р(6,2) =1: 
LET ЕМ-22: СО SUB 3000: СО ТО 9 
0 

IF R(1)=37 AND D(7,1)=1 THEN 

LET D(7,2)=1: GO SUB 3000: 


GO TO 90 
IF R(1)=37 AND р(7,1) =0 THEN 
PRINT "LA PORTA E' CHIUSA.": 
GO TO 90 
IF Е(1)-11 AND D(5,1)=0 THEN 
PRINT "LA PORTA E' CHIUSA.": 
GO TO 90 
PRINT '"NON PUOI APRIRE.": 


GO TO 90 

IF R(1)=98 AND B$="MUSICA" 
THEN GO TO 4650 
IF B$«»"MEDAGLIONE" 
GO TO 5790 
LET D$="MEDAGLIONE D'ORO": 
GO SUB 7000: IF H=6 THEN 


THEN 


GO TO 5790 " 
PRINT '"LO SCRITTO E' TROPPO PIC 
COLO.": GO TO 90 

PRINT INK 3;'"LE NOTE SONO: DO, 
MI,FA,LA." 

GO TO 90 


LET D$="LENTE": 
THEN LET р5-В5 
GO SUB 7000: IF H-6 THEN 

GO TO 5790 

IF B$="SCOPA" AND R(1)=122 

THEN PRINT '"TI ALLUNGHI CON 
_ LA SCOPA E MANOVRI PER PREME 
RE IL BOTTONE. IL NASTRO TRASP 
ORTATORE SI ARRESTA SUBITO.": 
LET D(7,2)=1: LET E=8: GO TO 90 


IF B$="SCOPA" 


LET D$="MEDAGLIONE D'ORO": 

GO SUB 7000: IF H=6 THEN 

GO TO 5790 

IF B$="LENTE" THEN PRINT '"LA 
SCRITTA DICE: © PER TROVAREUN C 
ORRIDOIO NASCOSTO, CERCA UN POST 


O VUOTO E STRANO, GRIDA APRI 
TI SESAMO E LA TUA FORTUNA CAMB 
РЕВАНШИ у EGO TORO 

GO TO 5790 


IF B$="FRUTTA" AND R(1)=43 
THEN CLS : PRINT INK 4; "МАМСТ 
IL CIBO E TI SENTI BENE. MA,D' 
UN TRATTO,TI SENTI STORDITOE TI 


4810 


4820 
4900 


4905 


4910 


4920 


4930 


5000 
5010 


5020 


5030 


5040 


5050 


5060 


5100 


5110 


5200 
5210 


5220 


GIRA LA ТЕ5ТА. ТІ DIMENI E SALTI 
FINCHE' CROLLI А TERRA. HAI F 
ALLITO LA PROVA.": GO TO 9960 


IF B$="FRUTTA" AND R(1)=44 

THEN PRINT ""МАМСІ IL CIBO E T 

I SENTI BENE. CAPISCI COME LA 
VITA  POTRA' ESSERE РІП" GRADE 

VOLE D'ORA IN POI. HAI INFATTI 

MANGIATO LA FRUTTA DELLA VITA 

‚ E LA TUA VITASTESSA SARA' ALLU 


NGATA A MENO CHE TU NON COM 

METTA DEGLI IMPERDONABILI ERR 

ORI.": LET LLIFE=0: GO TO 90 
PRINT ІМК l'"MANGIARE 2 NON SI 
PUQ вото S0 

LET D$="FUNE": GO SUB 7000: IF H 
=6 THEN GO ТО 5790 

IF R(2)=0 THEN PRINT '"LANCI L 
A FUNE МА NON AGGANCI NULLA.": 
GO TO 6300 

LET D$="GANCIO": GO SUB 7000: 


IF H=6 THEN RETURN 


ТЕ R(2)=1 AND R(1)<>126 THEN 
PRINT '"LANCI LA FUNE MA NON 
AGGANCI NULLA.": GO TO 90 

IF R(2)=1 AND R(1)=126 THEN 
PRINT '"LANCI LA FUNE E L'UNCI 

NO SI AGGANCIA A QUALCOSA DI 

SICURO.": LET D$="FUNE": 

GO SUB 7000: LET R(2)=3: LET С( 
H)=0: LET D$="GANCIO": GO SUB 70 
00: LET C(H)=0: GO TO 90 
IF Е(1)=11 THEN СО ТО 5050 
IF R(1)=37 THEN LET D$="CHIAVE 
BLU": GO SUB 7000 
IF H=6 THEN PRINT '"TI SERVE LA 

CHIAVE GIUSTA.": GO TO 90 
IF R(1)=37 THEN PRINT '"PORTA 
CHIUSA.": LET D(7,1)=0: GO TO 90 
IF R(1)<>37 THEN GO TO--5790 
LET D$="CHIAVE ROSSA": 


GO SUB 7000: IF H=6 THEN 


PRINT '"TI SERVE LA CHIAVE 6105 
ТА“: СО ТО 90 
PRINT ‘PORTA СНТИЗА.": LET р(5, 
1) + 1: GO ТО 90 


IF B$="VINO" AND R(1)=49 THEN 
PRINT '"IL VINO Е" FRESCO E TI 
RISTORA MENTRE SCIVOLA LEGGERO 
NELLA TUAGOLA. TUTTO SEMBRA MERA 
VIGLIOSO QUANDO, DI COLPO, SVIEN 


I.": PAUSE 500: LET R(1)=20: 

CLS : PRINT '"TI RISVEGLI SU UN 
DIVANO.": GO TO 90 

PRINT '"NON PUOI BERE.": GO TO 9 
0 


IF Е(1)<>51 THEN СО ТО 5790 

LET D$="SCALETTA": СО SUB 7000: 
IF Н-6 ТНЕМ GO ТО 5790 

PRINT ІМК 1;""ТІ ARRAMPICHI SIN 

O AL MARGINE DIUNA BOTOLA. LA SC 

ALETTA CASCA LONTANO. IN ALTO 


5300 
5599 
5400 
5410 
5420 


5500 
5600 
5610 
5620 


5700 
5710 
5715 
5720 
5730 
5740 


5750 
5760 


5770 
5790 


5791 


5799 
5800 


5810 
5820 
5830 
5840 
5850 
5860 
5900 


5910 


5920 
6000 
6100 
6110 


6120 
6130 


6140 


VEDI SOLO UN BUCO.": LET R (1) = 
126: ҺЕТ С(Н)-0: СО ТО 90 

СО ТО 5400 

5ТОР 


IF ЕМ-0 ТНЕМ GO ТО 5420 


LET R(1)=EN: СО ТО 30 

PRINT ІМК 2;'"NON PUOI USARE EN 
TRO O DENTRO.": GO TO 90 

GO TO 5600 

IF L-0 THEN GO ТО 5620 

LET R(1)=L: GO TO 30 


PRINT 
CO O FUORI.": 


INK 2;'"NON PUOI USARE ES 
GO TO 90 


IF В5-"ТАРРЕТО" THEN GO TO 5750 
IF В5-"5САЕҒАҺЕ" THEN GO ТО 573 
0 

IF R(1)=10 AND B$="QUADRI" 

THEN GO TO 5791 

PRINT ІМК 2;'"NON PUOI FARE СТО 
"ӨНЕ НАТ DETTO": GO. TO 90 

IF R(1)<>55 THEN: GO т0 5790 


LET ЕМ=58: БЕТЕ(1)=57: PRINT *" 
LO SCAFFALE SI MUOVE RIVELANDO 
UNA STANZA SEGRETA.": GO TO 90 
ТЕ R(l)<>110 THEN С0 TO 5790 


PRINT '"IL TAPPETO SI SPOSTA RIV 

ELANDO UNA BOTOLA NEL PAVIMENTO 
" 

LET D(10,1)=1: СО ТО 90 


PRENT TINK 25 "INON ST PUO! T:s 

GO ТО 90 

PRINT '"DIETRO UN QUADRO SI TROV 
A UNA CASSAFORTE MA E' CHIUSA. 


PROVA АП APRIRLA SE CREDI DI С 
ONOSCERELA COMBINAZIONE. ": 


(619) TO 90 

STOP 

CESIS SPRINT RICORDA CHESCI 50 

NO 4 PARTI DA SALVARE." 

SAVE "ELENA!" DATA О() 

SAVE "ELENA2" DATA R() 

SAVE "ELENA3" DATA C() 

SAVE "ELENA4" DATA D() 

PRINT uW O Re" 

GO TO 90 

CLS : PRINT "CARICAMENTO: VIA CO 
N IL NASTRO" 

LOAD "ELENA!" DATA O(): LOAD "EL 
ENA2" DATA R(): LOAD "ELENA3" 
DATA C(): LOAD "ELENA4" РАТА D( 
) 

GORTONSSSO 

GO TO 30 È 

PRINT ІМК 1;""5ТАІ PORTANDO:" 
LET Н-1: FOR F=1 TO 5: IF C(F)=0 
THEN GO TO 6140 

LET H=0 


RESTORE 9040: FOR G=1 TO C(F): 
READ C$: NEXT G: PRINT INK 3;C 


$ 
NEXT F: IF Н=1 THEN PRINT 
INK 2; "NIENTE." 


SUPERSINC® 7/85 . 77 


6150 
6200 
6210 


6220 


6230 


6250 
6280 
6290 
6300 
6310 
6320 
6330 
6340 
6400 
6410 
6500 


6600 
6605 


6610 
6620 


6700 


6710 
7000 
7010 


7020 
8999 
9000 


9002 


9004 


9006 


со 7090 

IF В(1)=24 THEN PRINT '"PERCHE' 
NON PROVI А SCALDARE QUALCOS 

A ?" 

IF R(1)=118 THEN PRINT '"METTI 

UNA STELLA NEL BUCO." 

IF R(1)=51 THEN PRINT '"PROVA A 


D ARRAMPICARTI ATTRAVERSOIL BUCO 
AIUTANDOTI CON QUALCOSA." 

IF R(1)=34 THEN PRINT ""Е SE PR 

OVASSI AD ALLACCIARE FRA LORO UN 
GRAN NUMERO DI LENZUOLI?" 


PRINT '"HAI PROVATO A FARE UNO S 
TAMPO ?" 
IF R(1)<>51 AND R(1)<>118 


AND R(1)<>24 THEN PRINT 
N HO NESSUN'ALTRA IDEA." 
GO TO 90 
LET D$="FUNE": GO SUB 7000 
LET D$="GANCIO": GO SUB 7000 
IF H=6 THEN GO TO 5790 
LET R(2)=1 
PRINT '"PERO'....RIPROVA!": 

GO TO 90 
ТЕЗЕ у<> Аб OE в(2)<>3 

THEN СО TO 5790 
CLS : PRINT '"TI ARRAMPICHI SULL 
A FUNE SINO IN CIMA.": LET R(1 
)=113: GO SUB 2130: GO TO 90 
GO TO 4400 
IF R(1)<>34 THEN GO ТО 5790 
FOR F=] ТО 5: LET D$="LENZUOLO": 

GO SUB 7000: IF H=6 THEN 

GO TO 5790 
NEXT F 
PRINT '"HAI FATTO UNA FUNE ANCHE 

SE PER ORA NON SAI COME USARLA. 
"E LETOG(Lyes1: FOR^Bs2' 1015: 

LET C(F)20: NEXT F: GO TO 90 
IF R(1)=10 THEN PRINT INK l'"L 
A CASSAFORTE SI APRE E NE ESCE U 
N LINGOTTO D'ORO. LA CASSAFORTES 
VANISCE NEL NULLA.": LET 0(14)=1 
0: GO: т0290 
PRINT '"COSA INTENDI ?": 
0 


' "NO 


GO- TO *9 


FOR H=1 TO 5 
RESTORE 9040: 
READ C$: NEXT G: 
THEN RETURN 
NEXT H: RETURN 
STOP 
DATA "N","E","S","O","NORD","EST 
","SUD","OVEST" , " ALTO" , BASSO" , " 
A","B" 
DATA “PRENDO” "LASCIO", "FACCIO", 
"BLOCCO", "SCALDO","ALLACCIO", "LE 
GO", "METTO", "APRO", "LEGGO", "USO" 


FOR G=1 TO C(H): 
IF C$=D$ 


DATA "MANGIO", "GETTO", "SBLOCCO", 
"BEVO", "SALGO", "DENTRO", "ENTRO", 
"FUORI", "ESCO", "MUOVO" 

DATA "SALVA", "CARICA", "GUARDO", " 
LISTA", "INVENTARIO" 
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9008 
9010 


9020 


9040 


9042 


9045 


9050 


9930 
9940 


9950 


9960 


9970 


9980 


9990 


DATA "AIUTO","2800" 

DATA, ЗА 2 3,456 9; 6, 7, 8 

79/5 О 9; ОЛИ пива Бет, Ва 

9,20,21,22,23,24,25,26,21,28,29, 

30,31,31,32,33 

DATA "1 поп өзи иди "oW "gn." 

PALI PIC ИО T aru a “13% "14 

"тон уби nn 4 ET 7208, 

“21429224542 "24 побо навит 62 

ги ОРУ ОШТРА НЕ РОА ЈЕЛА Бо 

3" "22137, 1423" "9136 "33" 

DATA "FUNE","SCALETTA","STELLA", 

"LIQUIDO VERDE","LIBRO","SCATOLA 
DI SIGARI", "CHIODI", "MARTELLO", 

"LEGNO", "MEDAGLIONE D'ORO", "ГЕМ 

UOLO" , "LENZUOLO", "LENZUOLO" 

DATA "LINGOTTO D'ORO","LENZUOLO" 

"LENZUOLO", "LENZUOLO", "LENZUOLO 

","STAMPO", "LENZUOLO", "SCOPA", "R 

UBINO", "GANCIO", "CHIAVE BLU", "CH 

IAVE ROSSA" 

DATA "LENTE", "LEGNO","SAPONE","S 

APONE", "SAPONE" 

DATA 0,0,0,0,14,13,38,38,46,59,6 

154/64. 7065 В „ВЛ 82 83111 А а 

5,76,75,14,58,18,38,5,30,106 

DEF ЕМ A()=((65536*PEEK 23674-25 

6*PEEK 23673+PEEK 23672)/50) 

POKE 23674,0: POKE 23673,0: 

POKE 23672,0: RETURN 

IF R(1)=54 THEN CLS PRINT '"G 

LI OCCHI MALVAGI APPARTENGONO 

D UNA ENORME VEDOVA NERA. ESSI 

I MUOVONO VERSO DI TE COME NON 

OSSERO LEGATI AL CORPO. LE SUE 

ANDIBOLE SI APRONO SU DI TE E 

TRINGONO MORTALMENTE LE TUE 

RACCIA. IL VELENO AGISCE 

APIDAMENTE E MUORI." 

IF R(1)=17 THEN CLS : PRINT 
INK 4;'"SEI STATO TROPPO LENTO 
к “ҺО STRANO ODORE ERA UN GAS 
LETALE E SEI MORTO PER QUESTO. 

" 


= = (n £ rJ (n р 


IF ЕМ А()>2000 THEN CLS : 

PRINT ІМК 4'"NON HAI MANGIATO 
LA FRUTTA DELLAVITA E L'AMBIENTE 
OSTILE CHE TI HA CIRCONDATO PER 
TUTTO QUESTO. TEMPO: TI НА SO 
TTRATTO TUTTA L'ENERGIA: SEI MO 
RTO." 


PRINT INK Lt tt SEI STATO S 
FORTUNATO!" 

FOR F=1 TO 30: BEEP .01,F: 

NEXT F: FOR F=30 TO 1 STEP -1: 


BEEP .01,F: NEXT F: FOR Е=1 

TO 30 STEP 2: BEEP .01,Е: 

NEXT F: FOR F=30 TO 1 STEP -2: 
BEEP .01,F: NEXT F: GO TO 9990 


di Paolo Maffei 


Questo programma, scritto com- 
pletamente in linguaggio mac- 
china, vi permette di ridefinire 
la posizione di tutti i tasti del vo- 
stro Spectrum, rendendo quindi 
sempre più semplice e veloce la 
stesura dei vostri programmi. 


Pee ridefinire la posizione sulla 
tastiera delle semplici lettere, della 
punteggiatura, dei caratteri grafici op- 
pure dei comandi (PRINT, BEEP, 
READ, ecc.). 

La ridefinizione dei tasti va inserita in 
una linea REM all'inizio del programma 
su cui state lavorando, utilizzando la se- 
guente sintassi: numero di linea (8 im- 
portante che questo sia il piü basso pos- 
sibile), il comando REM, il carattere che 
deve essere sostituito, il simbolo ”:” ed 
infine il carattere che dovrà prendere 
posto sulla tastiera nella nuova posizio- 
ne. 

Un esempio servirà a chiarire il sempli- 
ce meccanismo: 


1 REM р:, 


Questa linea permette di ottenere il sim- 
bolo “,” alla pressione del solo tasto р 
(se al posto della p aveste lasciato uno 
spazio, avreste ottenuto il simbolo 4,” 
alla pressione del tasto SPACE, renden- 
do molto рій comoda la stesura, per 
esempio, di lunghe istruzioni DATA). Il 
simbolo “#” posto alla fine della linea 
permetterà l'esecuzione automatica del 
comando. 

Esempio: 


1 REM! : PAPER 7: INK 0: CLS: BOR- 
DER 7 # 


Questo comando resetta tutti i colori ai 
valori originali (carta bianca, cornice 
bianca, inchiostro nero), premendo so- 
lamente i tasti SYMBOL SHIFT e 1 (ciò 
che avrebbe dovuto corrispondere al 
simbolo !); questo è molto comodo 
quando si è alle prese con programmi 
con tali variazioni di colori da rendere 
spesso illeggibile il listato. 

Ancora un esempio: 


— > È ә” нанына 


АЛАЙЫ IM Үү IM ү 1 
Ба дар. ара ры ШЕ ШЕ ДЕЖ 
MMM e 
NN 
Bi (C3 5) (19 (Ho, 
A E ASS QE 


1 REM NEW : INPUT A$ : IF A$ = 
"SI" THEN NEW 


Questa linea salva il programma su cui 
state lavorando da una accidentale e 
indesiderata pressione del comando 
NEW. Se ció dovesse accadere, vi ver- 
rebbe richiesta una conferma prima di 
cancellare ogni cosa. 


Caricamento del programma 

Il linguaggio macchina é contenuto in 
linee DATA nel programma BASIC. 
Notate che la nona cifra di ogni linea 
DATA è la somma delle 8 precedenti: 
questo artificio viene utilizzato per cor- 
reggere velocemente eventuali errori di 


copiatura. 

Copiate il listato e, per sicurezza, salva- 
telo su un nastro; dopo questa operazio- 
ne potete dare il RUN, attendete qual- 
che secondo e, se avete fatto qualche 
errore di copiatura, questo vi verrà co- 
municato con un messaggio; dovrete 
quindi apportare la necessaria modifica 
e, ancora una volta, date il RUN: se non 
ci sono altri errori, dovrete, seguendo 
sempre le istruzioni che compaiono di 
volta in volta sul video, registrare sul 
nastro in linguaggio macchina, verificar- 
lo ed infine cancellare definitivamente 
il programma BASIC. 

Per utilizzare in seguito questa routine 
dovrete battere: 
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CLEAR 32347 (16К) Per attivare il programma dovrete uti- RANDOMIZE USR 32486 (16K) 


CLEAR 65128 (48K) lizzare il comando RANDOMIZE USR 65267 (48K) 

seguito da RANDOMIZE USR 32479 (16K) Per disattivare momentaneamente una 
RANDOMIZE USR 65260 (48K) istruzione di ridefinizione sarà comun- 

LOAD “” CODE que sufficiente spostare la linea REM 


Per disattivarlo 


Ridefinizione dei tasti 
versione per ZX Spectrum 16K/48K 


10 DATA 255,243,229,213,197,245,205 
,107,1694 

11 БАТА 126,241,193,209,225,251,201 
,253,1699 

12 БАТА 203,1,110,200,33,0,0,57,604 


VS CDATA 235,2317123,/617,92, 22517127 
,1101 

14 DATA 16,167,237,66,235,249,192,4 
2,1204 

ПБ DATA 83. 927,24 2235; 9; 35, 352515 

16 БАТА 78,35,70,35,84,93,126,254,7 
15 

17 БАТА 234,192,35,58,8,92,190,32,8 
41 

18 DATA 235,35,126,254,58,32,229,35 
,1004 

19 DATA 126,254, 13:40, 223 mtl А ВАТ; 
689 

20 РАТА 11,197,229,42/91,92, 205, 85, 
952 

21 DATA 22У19,237,83,907,92935,235;8 
14 

22 РАТА 225,193,237,176,235,43,126, 
254,1489 

23 DATA 35,40,8,205,29,17,253,203,7 
90 

ЗА ДВАТА УЛЕА 2095 ЛЕО 205 232, 8115 


25 БАТА 25,62,13,50,8,92,253,203,70 
6 


26 
217 
28 
100 


105 
110 


120 


130 


140 
150 


160 
170 
180 
190 
200 


210 


dall'inizio del programma alla sua fine. 


DATA 1,238,201,62,40,237,71,237, 
1087 

DATA 94,201,62,62,237,71,237,86, 
1050 

DATA 201,0,0,0,0,0,0,0,201 

LET а-32348: IF РЕЕК 23732+256* 
PEEK 23733532767 THEN LET а-651 
29 

PRINT "ATTENDERE, PREGO." 


RESTORE : FOR f=0 TO 18: LET t=0 
: FOR 4-0 TO 7 


READ d: POKE а+Е#8+9,9: LET t=t+ 
d 


NEXT g: READ d: IF d<>t THEN 
PRINT '"ERRORE nella linea ";f+ 
TOS STOP 


NEXT Е 


IF a=65129 THEN РОКЕ 65261,9: 
POKE 65136,120: POKE 65137,254 
PRINT '"Preparati a registrare i 

TuL programma RID. TASTI" 

SAVE "ЕТО -TASTI "CODE а;150 

PRINT '"Riavvolgi il nastro per 
la"'"verifica della registrazion 
е." 

VERIFY “RIDE TASTI" CODE. а,|50 
PRINT '"ON : RANDOMIZE USR ";а+1 
31!"ОЕЕ: RANDOMIZE USR ";a+138 
PRINT '"Premi un tasto per сапсе 
llare il programma BASIC." 


220 PAUSE 0 
230 CLEAR а-1: NEW 


Avete mai “pokato” nel byte 23624? No? Beh, perché non provate? 
Ricordatevi solo che, in caso di difficoltà, basterà digitare (magari alla cieca!) POKE 
23624,56. Se siete privi di fantasia, potete copiare questo semplice programmi- 


no: 


10 FOR і-О TO 255 
20 POKE 23524,i 


30PRINT Z 0; АТ0,0; “Ma guarda che roba... ma si può? È proprio qualcosa di buf- 


fo!!!” 
40 NEXT i 
50 POKE 23624,56 
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di Guido Bertolotti 


Descrizioni delle variabili 


è il nostro sacchetto di numeri. Prima viene riempito con i 
caratteri il cui codice va da 1 a 90, poi i caratteri vengono 
mescolati e infine estratti uno dopo l’altro 

variabile di loop. E riciclata più volte per non riempire la 


memoria con troppe variabili 


~ 


апсће questa variabile ë usata рій volte: alla linea 90 le 
viene assegnato un valore casuale compreso fra 1 e B; alla 
linea 160 le viene assegnato il valore del numero estratto 
è usata in un’istruzione di INPUT alla linea 140: se non 
viene inserita una “T”, viene estratto un numero; altrimenti 


comincia una nuova partita 


Decrizione del programma 


Linee Commento 
10-20 presentazione 


30-110 inizializzazione. E composta da due parti: la prima (linee 
40-70) genera una stringa (A$) i cui caratteri hanno, in 
ordine, codici da 1 а 90. La seconda parte (linee 80-110) 
provvede a mescolare casualmente i caratteri di questa 
stringa. Il mescolamento utilizza le funzioni di slicing (“affet- 
tamento”) delle stringhe, e funziona in pratica così: al primo 
passaggio di un ciclo viene scelto a caso uno dei 90 caratteri 
di A$, estratto dalla posizione che occupa e trasferito in 
fondo alla stringa. Al secondo passaggio viene scelto a caso 
uno dei primi 89 caratteri (il 90°, cioè quello appena trasfe- 
rito, non viene più toccato) e trasferito in fondo alla stringa. 
Al terzo passaggio il carattere trasferito sarà uno dei primi 
88, e così via, per un totale di 90 passaggi. 

Questo sistema di utilizzare una stringa al posto di un vetto- 
re per memorizzare dei numeri presenta due grossi vantag- 


gi: 


1) si risparmia memoria, perché ogni elemento della stringa 
(carattere) occupa un byte, mentre ogni elemento di un 
vettore (numero) occupa cinque byte; 

2) il mescolamento dei caratteri della stringa, grazie alle 
funzioni di slicing, risulta più agevole e veloce del mescola- 


mento dei numeri di un vettore. 


~ 


Il limite è, naturalmente, che in una stringa si possono 
memorizzare, sotto forma di codici di caratteri, solo numeri 


interi compresi fra 0 e 255 


130-180 estrazione dei numeri. Questo loop legge, uno dopo l’altro, 
i codici dei caratteri della stringa A$, c he sono già mescolati 
casualmente: і numeri estratti sono pertanto in ordine са- 


suale. 


Non esiste il pericolo che un numero venga estratto più di 
una volta, perché il carattere corrispondente compare in 


A.dol$ una volta sola 


uesto breve programma (si carica 

in 15 secondi) gira sullo ZX81 an- 
che senza espansione di memoria. Una 
volta caricato è necessario dare RUN 
per farlo partire. Appare così sullo 
schermo la scritta “TOMBOLA”, che 
resta visibile per una ventina di secondi, 
mentre il computer svolge alcune ope- 
razioni di inizializzazione. Appare poi il 
cursore di INPUT in fondo allo scher- 
mo: ogni volta che si preme NEWLINE 
(si inserisce cioè una stringa nulla) viene 
estratto un numero. І numeri estratti 
vengono visualizzati in un tabellone, 
mentre l’ultimo estratto appare anche 
qualche riga più in basso. 
Quando il fortunato di turno avrà fatto 
tombola, per giocare un’altra partita sa- 
rà sufficiente inserire, anziché una strin- 
ga nulla, la lettera “T”. 
Buon divertimento. 


Nota bene 

Chi ha l'espansione di memoria e vuole 
mantenere il programma caricabile an- 
che su ZX81 senza espansione deve da- 
re, prima di salvarlo, il comando: POKE 
16389,68. In questo modo la zona di 
memoria contenente i caratteri visualiz- 
zati sullo schermo (il display file) viene 
ridotta alle minime dimensioni e si ottie- 
ne, oltrettutto, una abbreviazione dei 
tempi di SAVE e LOAD. 

La linea 170 contiene un carattere gra- 
fico racchiuso fra le virgolette di un CO- 
DE “”. Esso è CHR$ 10 (si ottiene con 
il cursore in modo GRAPHICS e SHIFT 
S): fate attenzione a non confonderlo 
vn un CHR$ 3 (GRAPHICS e SHIFT 
7). 
Ricopiate il programma esattamente 
com'è, specialmente la linea 170. Se es- 
so si blocca con un errore 4 (fine memo- 
ria), significa che nel ricopiarlo vi siete 
lasciati sfuggire qualche carattere di 
troppo. Se non riuscite a trovarlo ed 
eliminarlo, cancellate eventualmente la 
linea 20. 

I vari NOT PI, SGN PI, INT PI, VAL 
“90”, CODE “+”, che compaiono nel 
listato, non sono altro che modi compli- 
cati per dire, rispettivamente, 0, 1, 3, 
90, 21. Sono utilizzati al posto dei nu- 
meri scritti esplicitamente, perché con- 
sentono di risparmiare memoria e per- 
mettono a “Tombola 1K” di girare, ap- 
punto, anche con un solo Kilobyte di 
RAM (avanza solo 1 byte!). 
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Tombola ІК 
versione рег 7Х81 ІК 
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12 CLS 

за PRINT TAB PIsPI;" ШИ" 

30 RAND 

40 LET аф="" ° 

SQ РОН B=SGN PI TO VAL "92" 

EQ LET A$=A$+CHR$ B 

70 NEXT Б a 

80 FOR BzURL "Әй" TO SGN PI ST 
EP -SGN PI 

30 LET D=INT iRND£B4SGN РІ) 

122 LET Ве (0 TO )-H$iD«SGN РІ T 
Q ) «R$ iD) 

110 NEXT В 

130 FOR B=SGN РІ TO URL "90" 

140 INPUT D$ 

150 IF Ds="T" THEN RUN 

160 LET D-CODE $ (В 

179 PRINT BT СОСЕ "+" NOT PI;B; 
sd NUMERO ESTRATTO: 2,07 AT 
aL "INT (p719. 1) s232" (b - INT ГУ 
18.1) #СООЕ "%е)ЖІМТ БІзІРІжРІ»Б) 
-INT PI;D 

130 NEXT в 


di Marco Broglia 
e Davide Conti 


Renumber Assembler 


Come già annunciato pubblichiamo il li- 
stato Assembler del programma “Spec- 
trum renumber” — di Marco Broglia e 
Davide Conti — il cui listato BASIC è 
stato pubblicato su SUPERSINC nume- 
ro 3, datato marzo 1985. 

Ci scusiamo con gli autori e con i lettori 
del ritardo intercorso tra la pubblicazio- 
ne delle due parti dell’articolo, dovuto 
a problemi tecnici. Il disassemblato, ca- 
ratterizzato dall’output abbastanza ati- 
pico, è stato ottenuto con il programma 
monitor/assembler della Picturesque. 
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Alcune routine della ROM dello Spectrum utilizzate in “Spec- 
trum renumber” 


Indir 
hex 


Nome routine ROM 


Descrizione 


3435 
4764 


5633 


5717 


6326 


6510 


00 10 


OC 0A 


0р 6B 
12:96 


16 01 


16 55 


PRINT A 
CHARACTER 


MESSAGE 
PRINTING 


CLS COMMAND 


MAIN 
EXECUTION 


CHAN-OPEN 


MAKE-ROOM 


NUMBER 


LINE-ADDR 


Il registro A contiene il codice del carat- 
tere che deve essere stampato. 


Questa subroutine è usata per stampa- 
re messaggi е tokenizzati. ЇЇ registro A 
contiene il “numero d’ingresso” del 
messaggio o tokenizzato in una tabella. 
La coppia di registri DE contiene l’indi- 
rizzo di base della tabella. 


Cancella l’intero display. 


Il ciclo principale si estende dalla loca- 
zione 12A2 hex (4770 dec) alla locazio- 
ne 15AE hex (5550 dec) e controlla 
l'fediting mode", l'esecuzione di co- 
mandi diretti e la produzione di riporti. 


La subroutine ë chiamata con il registro 
A contenente un numero di flusso valido. 
In base al flusso di dati selezionato ver- 
rà aperto un particolare canale. 


Questa à,una subroutine molto impor- 
tante. E chiamata in molte occasioni per 
aprire un'area. In tutti i casi la coppia 
di registri HL punta alla locazione suc- 
cessiva al punto dove lo spazio e richie- 
sto e la coppia di registri BC contiene 
la lunghezza dello spazio voluto. 


Se il registro A contiene il codice OE 
hex (14 dec) la coppia di registri HL 
conterrà l'indirizzo del byte successivo 
al formato floating-point. 


Per un dato numero di linea, questa 
subroutine ritorna con l'indirizzo di par- 
tenza della stessa linea o della prima 
linea successiva nella coppia di registri 
HL, e l'inizio della linea precedente nel- 
la coppia di registri DE. Se il numero di 
linea viene trovato il flag Z sarà attiva- 
to. 
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Nota: 1 Сісіо di clock = 0.00000025 
secondi = 250 manosecondi. Quanfo 
sono mostrati due possibili tempi di 
esecuzione (cioë 7/12), ció indica che il 
numero dei cicli di clock dipende dai 
flag delle condizioni. Il primo tempo va- 
le per “condizione поп verificata”, 
mentre il secondo vale per “condizione 
verificata”. 


Proposte per “Spectrum 
renumber” versione avanzata 


1) permette l’uso del break in fase di 
immissione parametri. 


2) rimuovere dal listato eventuali codici 
di attributi, gli spazi di testa e quelli di 
coda associati ai salti. 


3) segnare i salti calcolati prima di ri- 
numerare. 


4) nella versione attuale, prima di ri- 
chiedere l'immissione di ciascuno dei 4 
parametri (From, To, Start, Step), lo 
schermo viene preventivamente сап- 
cellato; sicché sono necessarie 4 istru- 
zioni di CLS. 

Si propone di inserire una sola istruzio- 
ne di CLS in corrispondenza della rou- 
tine “INPUT”. 


5) l’attuale versione contiene un bug, 
che, sebbene riguardi situazioni alquan- 
to rare, può portare a delle rinumera- 
zioni indensiderate. 

Se la destinazione del salto è espressa 
mediante un numero con più di 4 cifre, 
non sempre verrà dato il messaggio 
“Impossibile Renumbering”, ma anzi il 
salto verrà rinumerato con un valore 
non precisato. 

Ciò è dovuto ad una imprecisione pre- 
sente nella parte diagnostica del pro- 
gramma, la quale si limita a verificare 
che la destinazione venga indicata 
esclusivamente da cifre ASCII, ma sen- 
za effettuare controlli sul loro numero. 
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6536 19 88 
6584 19 B8 
6632 19 E8 
6683 1A 1B 
12457 30 A9 


FIND EACH 


STATEMENT 


NEXT-ONE 


RECLAIMING 


REPORT AND 
LINE NUMBER 


PRINTING 


HL=HLxDE 


Questa subroutine риб essere usata per 
cercare il “D”esimo statement in una 
linea BASIC, ritornando con la coppia 
di registri HL contenente l’indirizzo del- 
la locazione precedente all’inizio dello 
statement e il flag Z attivato. 


Questa subroutine può essere usata per 
cercare la linea successiva nell’area 
programma o la variabile successiva 
nell’area variabili. 


La coppia di registri НІ. punta alla ргі- 
ma locazione da cancellare e la coppia 
di registri BC contiene il numero dei 
byte che devono essere cancellati. 


La coppia di registri BC contiene il nu- 
mero da stampare. Qualsiasi valore ol- 
tre 27 OFhex (9999 dec) non sarà tutta- 
via stampato correttamente. 


La subroutine è chiamata per compiere 
la moltiplicazione a 16 bits qualsiasi 
overflow riscontrato provocherà un ri- 
torno alla subroutine. 


Tabella delle istruzioni Assembly utilizzate in “Spectrum re- 


number” 


01 ADD 
02 ADD 


03 AND 
04 CALL 
05 CP 
06 CP 
07 CPIR 
08 СР 
09 DEC 
10 DEC 
11 DEFB 
12 DEFM 
13 DEFS 
14 DI 

15 DJNZ 
16 El 

17 END 
18 EQU 
19 ЕХ 
20 ЕХ 

21 INC 
22 INC 
23 JP 

24 JP 

25 JP 

26 JR 

27 JR 

28 JR 

29 JR 

30 JR 

31 LD 
32 LD 
33 LD 
34 LD 
35 LD 
36 LD 
37 LD 
38 LD 
39 LD 


Istruzioni Assembly 


A, data 
HL, rp 


label 
data 
(HL) 


reg 
reg 


Da 


string 
n 


disp 


data 

DE, HL 
(SP), HL 
reg 

rp 

cond. label 


(addr), A 
(addr), HL 
(addr), rp 
A, (DE) 
(DE), A 
dst, src 


HL, (addr) 
(HL), reg 


Cicli di Byte Frequenza Totale 
clock d’uso byte 
2 3 6 
11 1 13 13 
4 1 7 7 
17 3 40 120 
Й 2 20 40 
7 1 2 2 
20/16 2 1 2 
4 1 4 4 
4 1 1 1 
6 1 6 6 
0 1 14 14 
0 уат 10 64 
0 n 6 10 
4 1 2 2 
8/13 2 1 2 
4 1 3 3 
0 0 1 0 
0 0 4 0 
4 1 11 11 
19 1 1 1 
4 1 4 4 
6 1 38 38 
10 3 12 36 
8 2 1 2 
10 У 11 33 
7/12 2 10 
12 2 10 20 
7/12 2 4 8 
7/12 2 12 24 
1/12 2 12 24 
13 3 2 6 
13 3 4 12 
16 3 5 15 
20 4 1 4 
7 1 6 6 
7 1 4 4 
4 1 22 22 
16 В 13 39 
7 1 8 8 


Spectrum Renumber disassemblato 


Indirizzo 
decimale 


Indirizzo 
esadecimale 


00 
52 


FF 


БЕ 


РКОС 
VARS 
LASTK 
FLAGS 
MAIN 


PRFRM 


NTDEF 


LDFRM 
PRTO 


EXIST 


LIMIT 


LTDO 


OFBCAH 
5C53H 
5C4BH 
5C08H 
5C3BH 

A 

1601H 
OD6BH 
DE, MSSG 
A 


INPUT 

NZ, NTDEF 
HL, (PROG) 
LDFRM 
196EH 

NZ, PRMER 
(DEP1), HL 
OD6BH 

DE, MSSG 
A 


с, LTDO 
HL, 10000 
HL 
HL, (VARS) 
(DEP2), HL 
CNTLN 
(DEP2), DE 
A, (DE) 

A 


A, (DE) 
,А 
DE 
HL 
HL, (DEP1) 
A 


HL, DE 
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СОМЕ 
НІ. 
PRMER 
ве; -1 

DE, (DEP1) 
A, (DE) 

64 

NC, EMPTY 
BC 

HL, (DEP2) 
A 


H 

NZ, LDSTP 

L 

NZ, LDST 

HL 

ER 
210 

(D 

D 


— - 


PROCI 
PROC2 
РКОСЗ 


DE, (DEP3A) 
TSTND LD BC, (DEP2) 
LD А, Н 
СР В 
JP NZ, RSQNC 
CP ACIE 


CP 

JR 2, PR 
ІНІ.), 
H 


A. 
(LASTK), A 
A, (LASTK) 
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2 ВЕРЕТ 


А 

NZ, МЕТРІ. 
А, (LASTK) 
48 


ЕМТЕК 
А,В 


4 
NZ, МІЛРІ. 
А,8 


95599999 
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JP SRCHS 
NEXTL POP D 


E 
LD HL, (LNADD) 
HL 


L, (LNADD) 


65096 БЕ 48 


HL, FLAGS 
65099 FE 4B (HL) 
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С,А 

А,-1 
(DEP3B), А 
19Е8Н 
LDASC 
CHA 

A 
(DEP3B), A 
1655H 

HL 

DE, HL 
BC 

HL 


L, (LNADD) 
В 
L 
A, (HL) 
HL 
H, (HL) 
L A 


BC, (DEP3A) 


, 


DE, НІ. 
HL, ( 
НІ. 

НІ. 
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di Lucio Bragagnolo 


Alla scoperta del 
BASIC Spectrum 


di Mike Lord 
ed. Gruppo Editoriale Jackson 


I: primo protagonista di questa pun- 
tata di PRINT ë dedicato ai possesso- 
siano dilettanti o 
esperti programmatori, che potranno 
trovarvi suggerimenti, consigli е pro- 
grammi preziosi per il loro hobbv o la- 
voro. Accompagnato da una cassetta 
contenente tutti і programmi іп е550 
presenti (secondo una piacevolissima 
tradizione instaurata dalla Jackson da 
qualche tempo a questa parte), il libro 
funziona sia come strumento di appren- 
dimento della programmazione che co- 
me raccolta di routine e programmi uti- 
li, piccoli come dimensioni, ma numero- 
sissimi (circa cinquanta). 

Una considerazione generale da fare 
circa i listati ë la loro funzione preva- 
lentemente dimostrativa: sebbene infat- 
ti siano presenti alcuni programmi di- 
rettamente fruibili (come “Labirinto” e 
altri, di cui diremo piü avanti) gli altri 
sono veramente ridotti all'osso, senza 
abbellimenti grafici particolari o un ou- 
tput accurato. Servono, in definitiva, 
perchë il lettore li capisca e li usi suc- 
cessivamente per le sue particolari ap- 
plicazioni. I listati sono ottenuti con una 
Seikosha GP50S, ma sono perfetta- 
mente leggibili (e il più delle volte di 
lunghezza più che contenuta). 
Vendendo al libro vero e proprio, esso 
è diviso in quattordici capitoli e tre utili 
appendici, queste ultime riguardanti le 
locazioni di memoria più interessanti 
dello Spectrum (variabile di sistema, 
schermo, attributi, printer buffer), noti- 
zie e consigli sulla velocizzazione dei 
programmi (sezione insolita e preziosis- 
sima per i perfezionisti) e un confronto 
con i vari dialetti BASIC esistenti, di 
aiuto per chi sogna conversioni di pro- 
grammi scritti su altri calcolatori (eccet- 
tuate ovviamente le diverse POKE e 
РЕЕК!). 

Quanto ai vari capitoli, si tratta di una 
buona descrizione del BASIC, di cosa è 
un calcolatore e delle peculiarità dello 


ri di Spectrum, 


I libri possono essere 
ordinati utilizzando 
il coupon 
di pag. 98 
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offerti con il 0% 


prezzo di а 


Spectrum, а partire dal concetto депе- 
rico di memoria fino ad arrivare alla 
descrizione dei bug presenti nella ROM 
dello ZX. Per credere, provare questi 


esempietti (di cui uno è diligentemente 
riportato su cassetta): 


10 PRINT AT 0,0; “a”: REM (sul libro 
- e sulla cassetta -, è riportata una 
virgola anziché un "punto e virgola; 
si tratta di un piccolo errore) 

20 PRINT SCREENS (0,0) 

30 PRINT “b“+SCREEN$ (0,0) 

40 PRINT CODE SCREEN$ (0,0) ^ 

50 PRINT 2+CODE SCREEN$ (0,0) 

60 IF CODE “а”- CODE SCREEN$ 
(0,0) THEN PRINT “ok” 


oppure 


PRINT -65534-2 

PRINT INT -65536 (già noto) 

FOR а--65530 ТО -65540 STEP 
-1: PRINT a: NEXT а 

PRINT “А” + STR$ (0.1)+“B” 


П resto ë “normale” fino а! capitolo 7, 
dedicato ai numeri casuali e alla.. poe- 
sia casuale. Gli altri capitoli meritevoli 
di citazione sono il 9 (“Belle arti”), godi- 
bile graficamente, contenente anche un 
programma per ridefinire completa- 
mente il set di caratteri in uso; il 10 
(“Suoni e colori”), in cui vengono spie- 
gati in dettaglio, tra le altre cose, gli 
attributi del video e l’uso di tutti i carat- 
teri di controllo sia nei programmi che 
nei listati (argomento questo ignoto a 
un grandissimo numero di sinclairisti); il 
12, “GO SUB, DEF FN e bello stile”, 
in cui si spazia dalle tematiche della 
programmazione strutturata all’uso di 
DEF FN - l’istruzione trascurata per ec- 
cellenza - a 2 ottimi programmi, “3D” 
e “Labirinto”; il 13 (medie, istogrammi, 
sistemi di equazione, piccoli database) 
e, infine, il 14, intitolato “Programmi di 
utilità, stranezze e routine ricorrenti”, 
dove il lettore imparerà, per esempio, 
come inserire una linea 0 nei propri |- 
stati o come controllare via software 
l'integrità di ROM e RAM; in omaggio 
(si fa per dire) due programmini, rispet- 
tivamente un renumber e un converti- 
tore di base numerica, che traduce, po- 
niamo, un numero scritto in notazione 
binaria nell'equivalente decimale, esa- 
decimale, ottale o a proprio piacere. 

Il linguaggio usato è chiaro e scorrevo- 
le, e i listati sono anche qui ottenuti con 
una Seikosha ben oliata ed efficiente. 
Qua e là si vedono anche alcune copie 
del video (sempre ottenute con la stam- 
pante), utili per farsi un’idea dell’ou- 
tput dei programmi interessati. 

Per concludere, la cassetta: provatela, 
ha funzionato senza errori dal primo al- 
l’ultimo caricamento (a qualcuno sem- 
brerà ovvio, ma l’esperienza in questo 
campo insegna a non dare mai certe 
cose per scontate). | programmi ci sono 
tutti, e funzionano: le eccezioni in que- 
sto senso vengono dal programmino 
che abbiamo riportato più sopra (dove 
una virgola ha sostituito il punto e vir- 
gola, che avrebbe dovuto esserci) e da 
un paio di altri programmi tecnicamen- 
te perfetti, ma che presentano lievi di- 
fetti di output dovuti alla traduzione 
italiana di termini inglesi equivalenti, 
ma di diversa lunghezza (vedere “bio- 
ritmi”: molto bello da vedere, ma la 
scritta “intellettuale” viene spezzata 
proprio in corrispondenza dell’ultima 
“e”; in più “wks”, evidente abbreviazio- 
ne di “weeks” (settimane), non è ap- 
parsa altrettanto evidente al tradutto- 
re, che l’ha perfino storpiata in “vks”). 
Questi sono comunque peccati veniali, 
che, ripetiamo, non inficiano il perfetto 
funzionamento dei programmi e coste- 


таппо поп рій di cinque minuti di modi- 
fiche anche al meno esperto dei pro- 
grammatori. Il programma più bello è 
senz'altro “Labirinto”: giocabilità а par- 
te, è eccezionale la fase di generazione 
del labirinto, dove si può vedere lo 
Spectrum “pensare” al cammino da se- 
guire dalla prima casella fino all’ultima: 
l’effetto è decisamente affascinante — 
specie definendo un labirinto delle mas- 
sime dimensioni consentite — e anche 
parlando di pura e semplice program- 
mazione la routine impiegata è tutto 
sommato ineccepibile. 

In definitiva, assegnamo un buon voto 
anche a “Alla scoperta del BASIC 
Spectrum”, libro che contribuisce ad al- 
zare il tasso di qualità medio (già di per 
sé notevole) delle edizioni Jackson. 


Il BASIC in 30 ore 
per lo ZX81 


di Clive Prigmore 
ed. Gruppo Editoriale Jackson 


Ai più accorti tra i lettori abituali di 
PRINT non sarà mancata, leggen- 
do il titolo di questa recensione, un’im- 
pressione di “dejà vu”, di già sentito. 
L’impressione è esatta: il libro in esa- 
me differisce dal suo predecessore “Il 
BASIC in 30 ore per lo Spectrum” solo 
per il computer oggetto della trattazio- 
ne, il veterano, ma non certo pensiona- 
to, 2Х81: e che i suoi possessori possa- 
no stare tranquilli lo indica la notizia 
(nel momento in cui scriviamo recentis- 
sima) diffusa della Sinclair, secondo la 
quale, mantenendosi la vendita dello 
ZX81 su livelli soddisfacenti, l'azienda 
non ha alcuna intenzione di cessarne la 
produzione. 

In effetti lo ZX81 sta diventanto ció 
che in campo automobilistico à rappre- 
sentato dalla 500: qualcosa di vecchio, 
ma ancora funzionale, utile sia all'uten- 
te smaliziato che a chi vuole cominciare 
spendendo pochissimo (ormai uno 
2Х81 costa meno di certe calcolatrici 
tascabili...): soprattutto a questi ultimi 
si rivolge “Il BASIC in 30 ore per lo 
ZX81”, testo notevolissimo per chiarez- 
za di impostazione e facilità d’uso. La 
struttura del libro è perfettamente 
identica a quella del suo predecessore 
dedicato allo Spectrum, fino ad avere 
identici perfino alcuni capitoli. Anche 
questa recensione, per forza di cose, 
ricalcherà quindi quella già scritta a 
suo tempo. 

Il segreto, se così si può chiamare, del- 
l'opera consiste nell'ennesimo uovo di 
Colombo: scrivere un libro che insegni 
a programmare... scrivendo un libro 
che insegni realmente a programmare. 
Cosa vuol dire? Cerchiamo di spiegarci 
meglio. Ciò che intendiamo sottolinea- 
re è che finalmente siamo di fronte a 
un sussidio didattico vero e proprio, 
scritto, impaginato, disegnato, proget- 
tato a scopo di insegnamento, dove pri- 
ma la maggioranza dei libri puntava so- 


prattutto a dare il massimo di informa- 
zione nel minimo di pagine, col risultato 
di sconcertare il lettore, letteralmente 
sorpassato, dopo i primi capitoli intro- 
duttivi, dal ritmo frenetico del libro. 
Beninteso, non si vuol negare l'utilità di 
tutte le pubblicazioni apparse finora; 
vogliamo peró sottolineare che per un 
neofita l'approccio piü produttivo à 
quello usato in “Il BASIC..". 
Sfogliandolo distrattamente, l'aspetto à 
simile a quello di un libro di testo per 
le scuole: periodi evidenziati in verde, 
numerosissime illustrazioni chiarificatri- 
ci, piccoli listati presenti dappertutto 
(anche qui le linee di programma signi- 
ficative sono visualizzate in verde), con 
una differenza: la mancanza di testi 
lunghissimi e verbosi. La sintesi preva- 
le sulla logorrea, in omaggio al vecchio 
detto inglese secondo cui chi impiega 
sei parole potendone usare anche solo 
cinque ë capace di qualsiasi delitto. 
Colpisce anche la spaziatura tra le va- 
rie informazioni, non riempitivo per 
mancanza di idee quanto aiuto alla 
chiarezza: chi legge deve avere il tem- 


II BASIC 
in 30 ore 


po di “digerire” lo scritto e meditarci 
sopra. 

Approfondendo l’esame, possiamo ora 
vedere quali sono le direttrici secondo 
le quali l’autore ha impostato il libro. 
Come leggiamo dall’introduzione, per 
saper utilizzare al meglio un personal 
computer bisogna conoscere per prima 
cosa il suo dialetto BASIC e, in seguito, 
imparare a realizzare buone strutture 
di programma. Il resto (ad esempio la 
tastiera) viene dopo, e difatti la gran 
parte del libro si occupa dei primi due 
punti. Altra cosa: il corso può essere 
seguito anche senza possedere un com- 
puter! Vi sono infatti esempi ed esercizi 
riservati agli utenti ZX81, ed altri ac- 
cessibili a chiunque. Infine, non si parla 
di hardware: tutto ciò che bisogna sa- 
pere per programmare un calcolatore 
è la maniera migliore per fornirgli un 
problema, così che esso risponda come 
desiderato: il resto, almeno finché si 


impara, non ha eccessiva importanza. 
Aggiungiamo a questo quadro di insie- 
me la presenza di numerosi test, eserci- 
zi, verifiche, e sarà già possibile a que- 
sto punto farsi un'idea abbastanza pre- 
cisa dell'insieme. Scendendo ancora 
maggiormente nei particolari, vediamo 
quali sono gli argomenti esaminati. Е 
importante sottolineare come nel libro 
non venga trattato l’intero BASIC 
ZX81: ci sono istruzioni (PLOT, POKE, 
USR...) e argomenti (variabili di siste- 
ma, linguaggio macchina, routine della 
ROM...) che non sono di utilità per chi 
impara a programmare, e che anzi pos- 
sono condurre a una pericolosa confu- 
sione mentale e quindi non sono tratta- 
ti. 

I capitoli del libro sono 8: il primo di 
essi è dedicato all’analisi di un elemen- 
tare programma di somma di due nu- 
meri, in cui vengono introdotti LIST, 
SAVE e LOAD. Il capitolo 2 si intitola 
“Prendere le decisioni”, e in esso si 
parla di IF...THEN, della logica boolea- 
na (illustrata molto chiaramente), di al- 
goritmi, flowchart e dell’uso di GO TO, 
su cui l’autore si allinea con l’opinione 
dei più celebri santoni dell’informatica, 
sconsigliandone l’uso se non quando 
sia strettamente necessario. Si prose- 
gue con stringhe e liste, argomenti che 
consentono la trattazione di temi come 
variabili, separatori, file, FOR... NEXT, 
ordinamento dell’output sullo schermo 
e altro ancora. Non manca neppure 
una parte dedicata allo slicing, comple- 
ta della traduzione degli operatori 
RIGHT$, MID$ e LEFT$, propri del 
BASIC Microsoft; si parla anche di si- 
cure negli input, argomento che (espe- 
rienza redazionale) probabilmente po- 
chissimi possono permettersi di ignora- 
re. 

Il capitolo 6 (“Soprattutto sui dadi e 
giochi”) tratta di casualità (RND) e ope- 
razioni su stringhe, mentre nel capitolo 
7 (“Elaborazione numerica”) l’obbietti- 
vo è puntato su temi come il calcolo 
delle medie, la rappresentazione nume- 
rica, l’uso di INT e ABS, il calcolo ite- 
rativo (ad esempio per trovare una ra- 
dice quadrata o numeri primi sempre 
più grandi) e il concetto, solitamente 
sconosciuto o comunque ignorato, di 
“dry run”, vale a dire la simulazione di 
funzionamento del programma stesso, 
a scopo di perfezionamento e debug- 
ging. Il capitolo 8, infine, è una “Intro- 
duzione all’elaborazione dati”. Breve, 
ma succoso, condensa in poche pagine 
nozioni utilissime sui vari sistemi di ri- 
cerca e ordinamento di un file, su come 
stendere un menu di programma e co- 
me organizzare un output sotto forma 
di liste o tabelle. 

Come già per il testo analogo dedicato 
allo Spectrum, il nostro giudizio su “Il 
BASIC in 30 ore per lo ZX81” è larga- 
mente positivo: non è sempre facile 
trovare, nell’inflazionatissimo panora- 
ma biblioinformatico, testi come que- 
sto, realmente utili e orientati verso le 
effettive esigenze dei lettori. 
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Nes di alcuni club, constatazione 
della piena attività di altri già fio- 
renti, assestamento e consolidament 
di altri ancora, fondazione dei primi 
club di utenti QL... il panorama del set- 
tore appare tutt'altro che stanco e 
smobilitante come le cassandre dei 
“computer-usa-e-getta” vorrebbero far- 
ci credere. La nostra risposta è ancora 
quella di dedicare, nei limiti delle no- 
stre possibilità, uno spazio per tutti, 
per la soddisfazione di chi conduce 
un'attività amatoriale, ma spesso a li- 
velli professionali, e la curiosità o l’inte- 
resse di chi magari non sapeva del club 
Sinclair proprio dietro l’angolo, e vor- 
rebbe trovare qualcuno con cui condivi- 
dere la passione per l’informatica e, 
più concretamente, dare e ricevere 
programmi, consigli, libri, assistenza. A 
voi ZX CLUB! 


Gli annunci di ZX Club 


QUANTUM LEAP USER CLUB cerca 
nuovi soci in tutta Italia. Iscrizione gra- 
tuita, abbiamo già a disposizione 
software, libri e tanti consigli. Informa- 
zioni presso 

Roberto GHEZZI 

Via Volontari del sangue, 202 

20099 SESTO SAN GIOVANNI (MI) 
Tel. 02/2485511 


Cerco ragazzi in Rapallo o in provincia 
di Genova possessori di ZX Spectrum 
per fondare club con scopo scambio di 
idee e software. Telefonare dalle 13 al- 
le 15 a 

Massimiliano GRASSI 

Via Zunino, 19/1 - 16035 RAPALLO 


(GE) 
Tel. 0185/272447 


Iscriviti al SINCLAIR NEW CLUB. Con 
sole Lit. 6000 annue riceverai 5 pro- 
grammi in omaggio a tua scelta, adesi- 
vi, sconti hard-soft; potrai inoltre usu- 
fruire della softeca e della biblioteca 
del club e approfittare di mille occasio- 
пі! 

Gianpaolo GENTILI 

Via Turati, 10 - 10024 MONCALIERI 


(TO) 
Tel. 011/6407195 


Il SINCLAIR CLUB ROMA-TALENTI 
cerca soci in tutta Italia sia tra coloro 
che vogliono usare lo Spectrum come 
videogioco sofisticato sia tra chi ricerca 
invece qualcosa di più. Per maggiori in- 
formazioni o per l’iscrizione rivolgersi a 
Massimo D'ASCENZO 

Via F. D'Ovidio, 109 - 00137 ROMA 

Tel. 06/8280043 


Come capoclub annuncio felice la na- 
scita del BUG-BUSTERS ZX Club, gio- 
vane come creazione ma già efferve- 
scente e vulcanico nelle iniziative, tra le 
quali segnalo il nostro mensile- 
bollettino con articoli sullo Spectrum, 
trucchi, POKE e mappe dei migliori 
giochi, routine utili e molte altre cose 
che non elenco per non monopolizzare 
lo spazio di ZX Club. 

Chi fosse interessato può contattarci a 
questo indirizzo: 


BUG-BUSTERS ZX CLUB 
c/o Andrea CICOGNA 
Via S. Quasimodo, 6/c 
46023 GONZAGA (MN) 
Tel. 0376/588555 


A tutti i migliori auguri di SUPERSINC 
e, ovviamente, l’invito a collaborare a 
ZX CLUB con ogni mezzo: programmi, 
articoli, bollettini, trucchi e bug, adesi- 
vi, e chi più ne ha più ne metta! 


Le notizie di ZX Club 


Ricordate il FIRENZE SINCLUB, quel- 
lo di “Il mago Numerello”? Ora ha 
cambiato sede: il nuovo indirizzo è 
FIRENZE SINCLUB 

Via Elbano Gasperi, 33 

50131 FIRENZE (FI) 


Per maggiori informazioni vi consiglia- 
mo però di scrivere, per il momento, 
alla segreteria del club: l’indirizzo di 
questa è 

Firenze Sinclub - c/o Marco Agresti - 
Via Castelfidardo 6 - 50137 Firenze 

Il cambio di indirizzo non ha però bloc- 
cato l’attività del club, di cui sentiremo 
riparlare presto... 


I programmi di ZX Club 


Il programma di questa puntata di 2Х 
CLUB “boxe”, di Gianpaolo Gentili del 
Sinclair New Club di Moncalieri (To), di 
cui trovate più sopra l’indirizzo. Simpa- 
tico seppure semplice, ha un piccolo di- 
fetto: utilizzando la funzione INKEY$ i 
due pugili (manovrati ognuno da un 
giocatore) non possono muoversi con- 
temporaneamente. Chi ha voglia di ci- 
mentarsi nella non difficile impresa po- 
trà sostituire le INKEY$ con la funzio- 
ne IN, così da consentire il movimento 
simultaneo di entrambi i boxeur. Buon 
divertimento! 


Boxe 37 BEEP .05,n 
39 NEXT n 
zx trum 16K/48K 
versione per ZX Spectrum 16K/48 41 FOR p=29 TO 14 STEP -1 
mens 43 BEEP .008,1: PRINT AT 10,p;"JI " 


10 GO SUB 471: GO ТО 32 


20 IF р=о+1 ТНЕМ СО ТО 431 


;AT 11,p-l;"RLK ";AT 12,p;"NM "; 
AT 13,p; "РО T" уты 


21 IF р-1=0 THEN GO TO 451 44 BEEP .009,n 

31 RETURN 45 NEXT p 

35 FOR n=1 TO (30-4)/2: PRINT АТ 11 47 CLS : PRINT PAPER 3; INK 7;АТ 1 
‚п; INVERSE 1; "BOXE!": PRINT s10;"ISTRUZIONI" 


AT 119D pot 
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49 FOR п=1 ТО 31 


50 


231 


241 


251 
261 
271 


PRINT АТ 2,n;" Il gioco consiste 
nel colpire l'avversario con 
il pugno in modo da mandarlo 
al tappeto. Quando lo si sara 
' colpito per cinque volte la p 
artita si concludera'.": 
NEXT n i | 
PRINT FLASH 1; PAPER 7; INK 2; 
AT 21,1;"PREMI UN TASTO PER CONT 
INUARE" 


PAUSE 0 

PAPER 6: BORDER 6: INK 0: 

CLS 

PRINT PAPER 2; INK 7;AT 1,10; "С 
OMANDI: " 

PRINT АТ 5,5;" О<--ЗИ ТАТ ТШШ" 


Q1 " 

PRINT AT 5,20;" 9<-->0w АТИ 723: 
" gr" 

INPUT "INSERISCI IL NOME DEL GIO 
САТОВЕ 1";а5 

ІМРОТ "INSERISCI IL МОМЕ DEL GIO 
CATORE 2";b$ 


CLS 
IF а5-"" THEN LET a$="GIOCATORE 
ЛҒ 
IF b$="" THEN LET b$="GIOCATORE 
= Qu 
PRINT AT 0,0; INVERSE 1;а9;АТ 0, 


20; INVERSE !;b$ 

PRINT AT 1,0;"PUNT. T= ЖУА |720; 
"pUNT.,2= " 

LET a=0: LET b=0 

PRINT AT !,8;а;АТ 1,28%Б 

INK 5 

PRINT АТ 10,9;"{SG5}": PRINT 

АТ 10,24;"{65}";АТ 1l,97%[SG5)w; 
PRINT АТ 11,24; "165)";АТ 12.99" 
{565} ": PRINT АТ 12,24; "(с5)" 
ІМК 0 

PRINT ІМК 5;АТ 13,9;"(16SG8)"; 
INK 1;АТ 14;9;"{16SG8}";AT 15,9 
:"(16568)" 

FOR t=4 ТО 1 STEP -1 

PAUSE 55: PRINT INVERSE 1;АТ 11 
|r16;t-1 . 

NEXT t: PRINT AT 11710677 M 
FOR 2-30 TO 50: ВЕЕР .01,2: 

NEXT z 

LET о-12: LET p=21 

IF a-5 THEN PRINT  INVERSE 1; 
FLASH 1;АТ 5,5; улов сас; 

AT 20,2;"premi un tasto per gioc 
are": PAUSE 0: CES 2 СОРТОСТІ 

IF b=5 THEN PRINT. INVERSE 1; 
FLASH 1;АТ 5,5;"VINCE ";b$; 

AT 20,2;"premi un tasto per gioc 
are": PAUSE 0: CLS : СО ТО 71 
PRINT АТ 9,0-2; АЛИӘЛӘР ШЕЛ w. 

АТ 10,0-2;"- "АШ О ОБЛ 
T,0-2;" ";АТ ТООЛ ШАТ О о 
2:" "AT она "AT 9,0-1; "А" 
5 PRINT AT 9, ОГ ВЕ 

PRINT АТ 10,0-1;"C";AT 10,0;"D" 
PRINT AT 11,0-1;"E";AT 11,0; "7" 
PRINT AT 12,0<517"С" AT 12705 EUN 


281 


3⁄41 
381 


391 
401 


411 
421 
431 


441 
451 


461 
471 


481 
491 
501 
511 
521 
531 


541 
551 


561 


571 
581 
59! 
601 


611 
621 


631 
641 
651 
661 


PRINT AT 9,р+1;" ";АТ 9,p+2;" "; 
АТ Di s Ap. ЛО pid т AT] 
1,p+l;" ";AT 11,p+2;" ";AT 12,p+ 
Түп ИЗАТ 12,p+2;" "SAT 9,P41;"I" 
;AT 9 b; nq А г 
PRINT ІМК 2; АТ 10,Р+1;"К"; АТ 10 
„Р; "1," А Yý 
PRINT AT 11,р+1;"М";АТ 11,р;"М" 
PRINT AT 12,P+1;"O";AT 12,P;"P" 
PAUSE 0 да P" 
IF INKEY$="w" THEN LET о=0+1 
IF INKEY$="q" THEN LET о-о-1: 
PRINT AT 9,0+1;" ";AT 10,0+1;" 
ПРАТИ ОН "sam 2 О ЕМ 
ТЕ INKEY$="9" THEN ТЕТ р=р-1 
IF INKEY$="0" THEN LET р-р+1: 
PRINT АТ реА Торт" 
“АТ DE pars" "AT ТІРІ DS: " 
IF ІМКЕҮ5-"1" ТНЕМ PRINT АТ 10, 
о+1;"О": ВЕЕР .05,1: PRINT АТ 10 
„оп. GO SUB 20 
IF INKEY$="8" THEN PRINT INK 2 
ЗАТО Dl; "Е": BEEP .05,.05: 
PRINT АТ 10,р-1;" ": со SUB 21 
IF o«12 THEN LET о-12 
IF P<13 OR p»21 THEN LET р-21: 
PRENIZATSI9 TOT t. APR КОРОМ 
ЫЛА ШӨЛ 5 "ХАТ: 1205121 


IF о+1>р ТНЕМ LET о-о-1 


GO TO 221 
ВЕКА НОР" "ЗАТ 10 ра": 
АМИНО "РАТКА РКО: 


ВЕЕР .25,p: LET а=а+1 
PRINT AT. 1,8;а: GO ТО 221 
РЕШИ AT 9 ЛО]; TAT 10,0-1:" 
EATON = lieto МАТ 1220-2:"K.0 
„2 ВЕЕР -25;0% LET Бебе! 

PRINT АТ 1,/28;Ы: GO TO 221 
RESTORE 481: FOR i=USR "а" ТО 
ОБЕ READ а: POKE iya: 


DATA ООЗ 7, 73,1 

DATA 0,0,128,192,64,240,192,0 
DATA 1,15,20,20,20,23,16,31 

DATA 0,192,64,64,92,126,30,254 
DATA 1157871578 715, 3733 

DATA 192,64,192,64,192,128,128,1 
28 

DATA 3,3;3,3,3;3,77 

DATA 128,128,128,128,128,128,240 
,240 


БАТА 0,0,128,192,224,224,192,128 


DATA: 0,071 3,2,15,3,0 

DATA 128,248,40,40,40,232,8,248 
БАТА 0,3,2,2,58,126,120,127 

DATA 240,240,240,240,240,192,192 
1192 


DATA 3,3,3:35 340,11 

DATA 192,192,192,192,192,192,224 
3224 

БАРАСТ:422:1,14,1,15,15 

DATA 0,0,0,14,15,255,255,14 
DATA 0,0,0,112,240,255,255,112 
RETURN 
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ritagliare (о fotocopiare) е spedire іп busta chiusa а: 


| tascabili Jackson sono uno BASIC cod. 007H GRUPPO EDITORIALE JACKSON - Divisione Libri - Ма Rosellini, 12 - 20124 Milano 
strumento prezioso per chi lavora ASSEMBLER 780 cod. 016H ! CEDOLA DI COMMISSIONE LIBRARIA у 
con il computer. ASSEMBLER 6502 cod. 013H | 
SINCLAIR SPECTRUM cod. 017 COBOL cod. 001H VOGLIATE SPEDIRMI 
VIC 20 cod. 005H FORTRAN 77 cod. 010H | n° соріе codice Titolo Prezzo unitario Prezzo totale 
COMMODORE 64 cod. 002H PASCAL cod. 006H Е | 
PC IBM cod. 018H I: i Е a 
APPLE lic cod. 003H n 
SHARP MZ80A cod. 014H | Totale 
LA PROGRAMMAZIONE cod. 004H ES (deles 
ГІ Pagheró contrassegno al postino il prezzo indicato piu L. 3.000 per contributo fisso spese di spedizione. 
WORD STAR cod. 008H 
Condizioni di pagamento con esecuzione del contributo spese di spedizione: 
Meier a | О Allego assegno della Banca О Allego fotocopia del versamento sul c/c n. 11666203 a voi intestato 
MS-DOS cod. 01 9H здание 4 2. О Allego fotocopia di versamento su vaglia postale e voi intestato 
PROGRAMMI DI STATISTICA cod. bi 
015Н 3 
CP/M cod. 011H Г“ г - 
C Città Pr 
PC-DOS cod. 012H i == — — 
OGNI TASCABILE COSTA L.8.500 Spazio riservato alle Aziende Si richiede l'emissione di fattura ORDINE 
Partita МАС Le Lea ІІІ | L. 50,000 
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SUPERSING LIBRI ALLA SCOPERTA DEL BASIC 


SPECTRUM cod. АУАМ034 1.30.600 
CEDOLA DI ORDINAZIONE - CASSETTE IL BASIC IN 30 ORE PER 


da compilare e spedire in busta chiusa a 
J.soft — Viale Restelli, 5 - 20124 Milano - Tel. 6888228 LO ZX81 cod. AJAK035 L. 27.900 


Ordino i seguenti libri рег un importo totale di L. ...................... + L. 2.000 


come contributo fisso per spese di spedizione 
Cod. ) 
СОНАР een OG. ¿su 22. Cod. 


Se richiesta fattura: 
Contanti allegati (| Assegno allegato n° Cod. F. e P. Iva 


Ho spedito l’importo a mezzo vaglia postale 


Ho versato l'importo sul ccp n° 19445204 intestato a J.soft - Milano 


Pagherò in contrassegno al postino al ricevimento dei volumi (valido solo peri Peri residenti all’estero - pagamento anticipato (vaglia o versamento su ns. ccp) 
soci in Italia) 


RT TOTI тры шл aaa n in e i i з cf e = eZ ш S пи па пи E n ані Ы 


SUPERSINC è bello, però... (ovvero suggerimenti, 
idee, critiche, richieste e tutto ciò che vi passa per 
la testa). 
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| IMPARIAMO 


La biblioteca per ragazzi 
firmata 


Cod. 006D Pag. 48 Lire 9.000 
Brian Reffin Smith 


APROGRAMMARE 


Il libro fornisce le conoscenze essen- 
ziali per incominciare a programmare 
in BASIC su di un personal com- 
puter. 


Cod. 0180 Рад. 48 Lire 9.000 


PRIMI PASSI 
IN BASIC 


Il libro propone l'apprendimento del 
linguaggio BASIC tramite lo studio e 
l'esame dettagliato di programmi già 
scritti. 

Cod. 007D Pag. 48 Lire 9.000 


Tony Potter - Ivor Guild 
I ROBOT 


Dopo una rapida panoramica su che 
cosa può fare un robot, il libro pre- 
senta una serie di robot con funzioni 
particolari: i robot a braccio, i robot 
operai, i robot nello spazio, etc. ' 

Affronta poi il problema di come un 
robot può essere programmato e 
controllato da un computer, e di co- 
me praticamente si realizza un robot. 


Cod. 003D Pag. 48 Lire 9.000 


Judy Tatchell - Bill Bennett 


CONOSCERE 
IL PERSONAL 


Il libro spiega che cosa si può fare 
con un personal computer, come si 
usa e come funziona. 

Cod. 008D Pag. 48 Lire 9.000 


Lynn Miring - lan Graham 


RIVOLUZIONE 
INFORMATICA 


Il volume è rivolto in particolare ai 
bambini, ma anche a tutti coloro 
che, presto o tardi, verranno coinvol- 
ti dalle nuove tecniche informatiche 
più come utenti che come operatori. 
Cod. 004D Pag. 48 Lire 9.000 


пекат 


Gio. 
Care con i personal comput, 
er 


ritagliare (o fotocopiare) e spedire in busta chiusa a 
GRUPPO EDITORIALE JACKSON - Divisione Libri - Via Rosellini, 12 - 20124 Milano 


CEDOLA DI COMMISSIONE LIBRARIA 
VOGLIATE SPEDIRMI 


n° copie | codice Prezzo unitario Prezzo totale 


Totale 


O Pagherò contrassegno al postino il prezzo indicato più L. 3.000 per contributo 
fisso spese di spedizione. 


Condizioni di pagamento con esenzione del contributo spese di spedizione: 


П Allego assegno della Banca О Allego fotocopia del versamento 


su c/c n. 11666203 a voi intestato 


О Allego fotocopia di versamento 


n° su vaglia postale a voi intestato 
Nome 

Cognome 

Via 

Cap Città Prov. 


Spazio riservato alle Aziende. Si richiede l'emissione di fattura 


ORDINE 
i pe | МІМІМО 


Partita I.V.A. L. 50.000 


y 


mI 


PD с 1 уу Aggiornati con gli 
| =" “Aggiornamenti” 


ENCICLOPEDIA 
DI ELETTRONICA 
& INFORMATICA 


20 FASCICOLI SETTIMANALI DA RILEGARE 
1 


nuovidea 


IN DUE NUOVI E SPLENDIDI VOLUMI 


: — 2 
PER TE, PER IL TUO LAVORO, PER I TUOI STUDI... f 


1 Aggiornamenti 
le nuove conquiste dell’Elettronica di Base, 
delle Comunicazioni, dell’Elettronica 
Digitale, dei Microprocessori, 
dell'Informatica... 


ІІ personal computer 

tutto quello che c'é da sapere sul Personal 
Computer: che cos'é e cosa fa; come fa 

e come si fa; i linguaggi di programmazione; 
le applicazioni... 


E.l. si aggiorna e ti aggiorna 


il 18 settembre 


batti sul tempo il progresso! 
Corri in edicola a comprare il 


ANCORA UNA VOLTA Ё · 
“PRIMI SUL FUTURO” 1 JACKSON 


SAN FRANCISCO - LONDRA - MILANO 


